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ABSTRACT 

The  Hellenic  Armed  Forces  Formations  currently  manage  all 
personnel  data  manually.   The  authors  propose  an  automated  sys- 
tem to  perform  this  function  using  dBASE  II  with  an  IBM  personal 
computer.   Source  programs  and  sample  reports  are  included. 
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I.   INTRODUCTION  TO  DATABASE  CONCEPTS 

A.   INTRODUCTION 

In  recent  years  computer  technology  has  evolved  dramati- 
cally.  As  more  and  more  organizations  use  computer,  it  is 
necessary  to  use  systematic  approaches  for  software  solutions 
to  their  problems. 

One  approach  which  is  widely  used  in  the  computer  world 
is  database  systems. 

Database  systems  today,  play  a  central  role  in  computer 
science  for  the  facilities  and  data  handling  capabilities 
they  provide. 
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Figure  1.   Changing  Hardware/ Software  Cost  Ratio 


10 


The  fact  that  the  hardware  cost  is  decreasing  rapidly 
and  software  cost  continues  to  increase  as  shown  by  Figure  1, 
in  a  United  States  Air  Force  study  [Ref .  1] ,  leads  us  to  con- 
sider systems  that  achieve  the  best  utilization  of  software 
development  productivity.   These  considerations  motivated 
system  designers  to  build  advanced  database  systems  in  order 
to  decrease  software  cost  and  obtain  maximum  benefit. 

In  our  case  the  benefit  will  be  the  savings  of  manpower 
for  other  purposes. 

B.   DATABASE  SYSTEMS  VS  MANUAL  SYSTEMS  IN  HELLENIC  ARMED 
FORCES  FORMATIONS 

Currently  all  of  the  information  required  by  Formation 
Commanders  are  handled  manually  by  the  staff  of  the  formation, 
resulting  in  time  consuming  operations  and  inaccuracies. 

Because  of  the  continuous  changes  concerning  personnel 
and  the  associated  data,  it  is  extremely  difficult  for  the 
staff  personnel  to  keep  track  of  these  changes.   Many  systems 
are  very  inefficient  and  the  Commander  of  the  Formation  does 
not  have  accurate  and  timely  information  in  order  to  make 
fast  decisions. 

These  problems  could  be  solved  by  the  implementation  of 
a  computerized  personnel  database  system. 

A  database  system  has  several  important  advantages  over 
manual  systems,  which  are  described  below. 

First  data  can  be  shared.   This  reduces  the  time  needed 
to  develop  new  systems  or  to  respond  to  various  requests.   In 
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effect,  all  the  necessary  information  can  be  retrieved  from 
existing  data  much  faster  and  with  a  higher  degree  of  accuracy. 

The  second  advantage  of  a  database  system  is  the  elimina- 
tion or  reduction  of  data  duplication  that  can  lead  to  a  lack 
of  data  integrity  in  conflicting  reports. 

The  third  advantage  is  that  the  personnel  involved  in 
manual  personnel  management  could  be  reduced  considerably, 
freeing  manpower  for  other  tasks. 

C.   CONCLUSIONS 

In  order  to  increase  the  effectiveness  of  Hellenic  Armed 
Forces,  it  is  essential  that  personnel  management  be  performed 
very  efficiently.   However,  to  manually  manage  all  Armed 
Forces  personnel  is  a  very  tedious,  complex  and  time  consuming 
job.   Increased  personnel  volume  has  also  increased  the  task 
of  management  making  the  operations  more  and  more  complicated. 
Furthermore,  personnel  managers  and  decision  makers  will  need 
reliable  information  faster  than  is  currently  available.   It 
is  almost  impossible  to  get  all  the  information  required  by 
the  personnel  managers  in  the  time  frame  allowed  with  a  manual 
system. 

On  the  other  hand,  an  automated  system  could  result  in 
decreasing  the  number  of  personnel  working  in  personnel  man- 
agement offices,  freeing  some  for  manning  in  other  understaffed 
positions . 
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Database  systems  have  become  important  tools  for  retriev- 
ing timely  and  accurate  information  and  is  expected  to  provide 
its  user  with  the  required  information  within  a  specified 
time.   Therefore,  a  standard  database  system  should  be  devel- 
oped for  efficient  personnel  management  in  the  Hellenic  Armed 
Forces  Formations. 

D.   GENERAL  OVERVIEW  OF  A  DATABASE  SYSTEM 

We  begin  with  the  definition  and  some  of  basic  terminol- 
ogy of  databases  and  then  discuss  the  architecture  and  types 
of  data  models. 

1 .   Definition  and  Basic  Terminology 

Figure  2  shows  the  relationship  between  the  basic 
terms  of  a  database,  which  are  explained  below. 
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Figure  2.   Relationship  Between  Basic  Terms  of  a  Database 
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a.  Database 

A  shared  collection  of  interrelated  data  designed 
to  meet  the  varied  information  needs  of  an  organization. 

b.  Database  Management  System  (DBMS) 

A  software  system  that  performs  all  user's  requests 
(update,  retrieval)  for  data. 

c.  File 

Is  a  collection  of  records  concerning  entities 
of  the  same  type. 

d.  Record 

Is  a  collection  of  data  concerning  one  entity  of 
a  file.   Each  record  has  an  identical  format. 

e.  Field 

A  field  is  part  of  the  record  and  is  the  smallest 
unit  of  named  data. 

2 .   Architecture  for  a  Database  System 

The  architecture  is  divided  into  three  general  levels: 
internal,  conceptual,  and  external  [Ref.  2].   Figure  3  shows 
the  standard  viewpoints  regarding  the  three  levels. 

In  Figure  3  a  single  database,  which  may  be  one  of 
many  databases  using  the  same  DBMS,  is  viewed  at  three  differ- 
ent levels.   Only  the  physical  database  exists.   The  concep- 
tual database  is  an  abstract  representation  of  the  physical 
database  and  the  views  are  either  abstractions  or  portions 
of  the  conceptual  database. 
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Figure  3.   Levels  of  Abstraction  in  a  Database  System 

3 .   Database  Systems  vs  Traditional  File  Systems 

A  database  management  system  (DBMS)  is  considerably 

different  from  a  traditional  file  system. 

A  traditional  file  processing  approach  is  shown  in 

Figure  4 . 
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Figure  4.   Traditional  File  Processing  Approach 
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We  observe  that  each  file  program  system  processes  only 
its  own  file. 

Figure  5  shows  a  database  processing  approach. 
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Figure  5.   Database  Processing  Approach 

Here  the  DBMS  integrates  the  data  and  makes  it  much 
easier  to  get  useful  information  from  more  than  one  file. 

Data  is  not  monitored  and  manipulated  by  the  individ- 
ual application  programs,  but  instead  by  the  DBMS. 

Such  a  Database  Management  System  is  dBASE  II,  which 
will  be  used  as  the  DBMS  in  our  database  system. 

The  disadvantages  of  the  traditional  file  approach  are 

(1)  Uncontrolled  redundancy. 

(2)  Inconsistent  data. 

(3)  Inflexibility. 

(4)  Limited  data  sharing. 

(5)  Poor  enforcement  of  standard. 

(6)  Low  programmer  productivity. 
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(7)   Excessive  program  maintenance. 

The  advantages  of  the  database  processing  approach  are: 

(1)  Minimal  data  redundancy. 

(2)  Consistency  of  data. 

(3)  Integration  of  data. 

(4)  Sharing  of  data. 

(5)  Enforcement  of  standard. 

(6)  Ease  of  application  programs. 

(7)  Uniform  security,  privacy  and  integrity  constraints. 

(8)  Data  accessibility  and  responsiveness. 

(9)  Data  independence. 

(10)  Reduced  program  maintenance. 

4 .   Models  of  Database  Management  Systems 

A  MODEL  is  a  representation  of  real-world  objects, 
events  and  their  association. 

A  DATA  MODEL  is  an  abstract  representation  of  the  data 
about  entities,  events,  activities  and  their  associations. 
The  purpose  of  data  models  is  to  represent  data  in  under- 
standable terms.   The  main  data  models  in  use  today  are  the 
hierarchical  data  model  (HDM) ,  network  data  model  (NDM)  and 
the  relational  data  model  (RDM)  [Ref .  4] .   Since  the  hier- 
archical model  is  a  special  case  of  the  network  model,  actually 
there  are  two  types.   A  complete  discussion  of  these  models 
is  beyond  the  scope  of  this  thesis  but  a  brief  overview  is 
important  as  an  introduction  to  dBASE  II. 

In  a  hierarchical  or  network  system,  information  is  stored 
in  a  structure  that  looks  very  much  like  a  tree  (Fig.  6) . 
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Figure  6.   Hierarchical  Data  Model 

An  entity  is  composed  of  various  assemblies  and  each 
assembly  is  composed  of  various  subassemblies  which  in  turn 
are  composed  of  parts.   Each  part  is  a  child  of  the  parent 
assembly  or  subassembly  that  owns  it.   In  a  hierarchical 
model  no  child  can  have  more  than  one  parent. 

In  a  Network  model  a  child  can  have  more  than  one 
parent  as  shown  in  Figure  7 . 

It  represents  data  as  a  set  of  record  types  and 
pairwise  relationships  between  record  types. 
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Figure  7.   Network  Data  Model 

A  relational  data  model  differs  from  HDM  and  NDM 
in  architecture.   Information  is  stored  in  two-dimensional 
tables  which  are  called  files. 

These  tables  which  are  shown  in  Figure  8  have  the 
following  properties: 

(1)  Each  column  contains  values  about  the  same  attribute 

(2)  Each  column  has  a  distinct  name. 

(3)  Each  row  is  distinct. 

(4)  The  sequence  of  the  rows  is  immaterial. 
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Figure  8.   Relational  Data  Model 

The  above  scheme  deals  with  a  parts  inventory  system. 
Information  in  the  tables  is  accessed  by  the  user  based  on 
any  desired  relationship. 

E.   dBASE  II  CONCEPTS 

dBASE  II  is  a  relational  database  management  system. 
However,  since  several  files  are  generally  used  in  a  given 
application  and  the  relationship  between  information  in  dif- 
ferent files  is  not  stored  in  the  system,  dBASE  II  is  not  a 
true  database  management  system  in  the  strictest  sense  of 
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the  word.   dBASE  II  is  more  like  a  file  management  system 

with  relational  features  added.   dBASE  II  does  contain  its 

own  programming  language,  permitting  a  user  to  develop  extremely 

powerful  and  complex  programs  that  meet  demanding  applications 

like  general  personnel,  accounting  and  inventory  control. 

1.  Features  of  dBASE  II  [Ref.  4] 

The  most  important  features  of  dBASE  II  are: 

a.  Independence  of  programs  and  data.   Changes  in  file 
structures  do  not  affect  programs. 

b.  Data  can  be  easily  updated. 

c.  Sorting  and  indexing  capabilities. 

d.  Easy  creation  of  reports  by  the  report  generator 
facility,  or  under  program  control. 

e.  Very  high-level  built-in  language  which  supports 
structured  programming. 

2.  Limitations  of  dBASE  II  [Ref.  3] 


a.  dBASE  II  allows  only  two  files  to  be  open  at 

a  time.   This  creates  difficulties  which  can  be  overpassed 
by  using  special  techniques  but  the  system  will  slow  down. 

b.  dBASE  II  allows  only  32  fields  per  record,  which 
is  enough  for  most  applications,  and  the  maximum  number  of 
characters  permitted  per  record  is  1000. 

c.  Each  field  can  be  up  to  254  characters  long. 

d.  dBASE  II  allows  16  programs  to  be  run  at  any  given 
time,  reduced  by  the  number  of  data  files  in  use.   For 
example,  if  we  have  2  files  in  use,  then  14  programs  are 
allowed. 
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e.   dBASE  II  applications  are  slower  than  com- 
piled programs. 
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II.   ANALYSIS  PHASE 

In  this  chapter  the  analysis  phase  for  our  personnel 
database  system  is  discussed.   This  phase  includes  the  defi- 
nition of  the  system  objectives,  the  definition  of  the  out- 
put information  needed  to  meet  these  objectives,  the 
definition  of  output  forms,  and  definition  of  input  infor- 
mation needed  to  obtain  the  desired  output. 

A.   SYSTEM  OBJECTIVES 

As  we  stated  in  the  previous  chapter  personnel  management 
in  Hellenic  Armed  Forces  Formations  is  handled  manually. 
This  results  in  time  consuming  operations,  inefficiency,  and 
inaccuracy,  which  in  turn  results  in  a  need  for  additional 
personnel,  leaving  other  serious  positions  unmanned.   In 
addition,  decision  making  may  be  late  which  could  result  in 
disorder  as  far  as  personnel  management  is  concerned. 

From  the  above  discussion  it  is  evident  that  a  computer- 
ized system  for  handling  personnel  is  needed. 

With  such  a  system  it  will  be  possible  to  have  any  infor- 
mation concerning  personnel  updated  at  any  time,  with  less 
effort  and  maximum  accuracy.   This  will  result  in  better 
decision  making,  faster  operations  and  a  savings  of  personnel 
for  other  purposes. 

More  specifically  we  will  consider  the  following  objectives 
for  the  system  [Ref .  7] . 
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(1)  Application  development  must  be  easier,  cheaper, 
faster  and  more  flexible. 

(2)  The  data  may  have  multiple  uses. 

(3)  Clarity. 

(4)  Ease  of  use. 

(5)  Flexible  usage. 

(6)  Ease  of  change. 

(7)  Low  cost. 

(8)  Performance. 

(9)  Privacy. 

(10)  Availability. 

(11)  Reliability. 

B.   OUTPUT  INFORMATION 

Our  database  system  can  be  applied  to  all  the  personnel 
of  a  formation  but  for  the  purpose  of  this  thesis  we  will 
include  only  the  officers. 

To  meet  the  above  objectives  the  following  output  infor- 
mation is  needed: 

(1)  List  of  officers  in  alphabetical  order  including 
serial  number,  rank,  unit,  and  report  date. 

(2)  List  of  officers  ordered  by  rank  including  service 
entry  date,  unit  and  duty. 

(3)  List  of  units  with  their  officers. 

(4)  List  of  officers  with  nonmilitary  studies. 

(5)  List  of  officers  who  speak  foreign  languages. 

(6)  List  of  officers  including  marital  status. 

(7)  List  of  officers  with  service  time  in  current  unit 
and  total  service  time. 
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(8)   List  of  officers  with  their  addresses  and  phone 
numbers . 

The  above  lists  will  be  issued  regularly  every  month, 

but  they  will  also  be  available  at  any  time. 

C.   INPUT  INFORMATION 

In  order  to  keep  track  of  all  the  officers  belonging  to 
a  Formation  we  must  consider  the  following: 

Each  officer  has  a  serial  number,  rank,  duty,  and  he 
belongs  to  a  unit.   We  need  to  know  his  total  service  time, 
and  the  service  time  in  current  unit,  as  well  as  his  marital 
status  and  where  he  lives,  in  order  to  respond  to  queries 
in  the  case  of  emergencies. 

Each  unit  has  several  officers  and  is  identified  by  a 
code  number  which  is  distinct  for  Army  and  Navy  units. 

For  security  purposes  the  personnel  data  contained 
within  this  thesis  is  purely  artificial. 

In  addition,  we  need  to  know,  the  education  of  each 
officer,  including  non-military  studies  and  foreign  language 
knowledge.   For  the  purpose  of  this  thesis,  we  assume  that 
each  officer  speaks  at  most  one  foreign  language  besides 
his  mother  tongue. 

A  detailed  description  and  the  input  information  included 
in  the  files,  which  will  be  created  to  support  the  above 
needs,  are  provided  in  the  design  phase. 
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III.   DESIGN  PHASE 

In  this  phase  the  functions  of  the  system  are  defined, 
the  files  of  the  database  are  designed  and  a  collection  of 
programs  is  defined,  to  support  each  function. 

A.   SYSTEM  FUNCTIONS 

The  system  is  separated  into  three  functional  entities 
as  follows: 

1 .  Update  Operations 

This  function  allows  the  user  to  enter,  delete  and 
modify  records  in  all  the  supporting  files.   These  operations 
are  performed  daily. 

2 .  Report  Generators 

This  function  is  for  retrieving  all  the  necessary 
information  from  our  database  on  a  monthly  basis,  or  upon 
request. 

3 .  Miscellaneous 

This  function  will  include  the  following: 

a.  When  a  user  enters  the  system  to  do  a  specific 
job  a  record  is  automatically  created  containing  the  name 
of  who  makes  the  change,  the  date  of  the  change,  and  the 
kind  of  the  job.   This  file  can  be  printed  and  deleted  as 
necessary  to  monitor  changes. 

b.  When  an  officer  is  to  be  deleted  from  the  MASTER 
file,  before  the  deletion  operation  is  performed,  some  data 
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concerning  this  officer  will  be  transferred  to  a  statistical 
file  including  the  serial  number,  the  name,  the  unit,  the 
rank,  the  report  date  in  the  unit,  and  the  date  of  deletion. 
This  file  will  be  available  yearly  or  upon  request. 

c.   A  screen  display  or  printer  output  for  fast 
retrieval  of  the  data  concerning  an  officer. 

The  functional  blocks  of  the  system  are  shown  in 
Figure  9. 


optrctt  1 0T1  S 


Menu. 


■V9  por-V 
aeneY-a.tors' 


/vniccfilictTieoa? 


Figure  9.   Functional  Blocks  of  the  System 

B.   FILE  DESIGN 

To  support  the  above  functions  the  following  files  with 
the  corresponding  structures  were  created.   The  names  of  the 
files  and  fields  are  the  ones  that  are  used  in  our  programs. 

1 .   Master  File 

It  is  the  main  file  for  our  system  containing  the 
necessary  information  for  each  officer. 
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Structure  for  file:   MASTER 


FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

4 

02 

NAME 

C 

16 

03 

RANK 

C 

2 

04 

UNIT 

C 

4 

05 

SERENTRY 

N 

6 

06 

REPTDATE 

N 

6 

07 

DUTY 

C 

2 

08 

EDUCAT 

C 

2 

09 

DEGREE 

C 

1 

10 

FORLANG 

C 

2 

11 

MARS TAT 

C 

1 

12 

CHILDREN 

C 

1 

13 

ADDRESS 

c 

20 

14 

PHONE 

c 

7 

Primary  key:   SERNO 

Units  File 

Structure  for  file:   UNITS 


FIELD 

NAME 

TYPE 

WIDTH 

01 

CODE 

C 

4 

02 

TITLE 

C 

12 

03 

LOCATION 

C 

10 

Primary  key:   CODE 
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3.   Ranks  File 


Structure  for  file:   RANKS 


FIELD 


NAME 


TYPE 


01              CODE 

C 

0  2              ARMYNAME 

C 

0  3              NAVYNAME 

C 

Primary  key:   CODE 

:.   Duties  File 

WIDTH 
2 
4 
4 


Structure  for  file:   DUTIES 


FIELD  NAME 

01  CODE 

02  NAME 
Primary  key:  CODE 


TYPE 
C 
C 


WIDTH 
2 
20 


5 .   Forlangs  File 

Structure  for  file 


FORLANGS 


FIELD 

NAME 
CODE 

TYPE 

01 

C 

02 

NAME 

C 

Primary 

key 

: 

CODE 

».   Sciences 

Fi 

le 

WIDTH 
2 
12 


Structure  for  file:   SCIENCES 
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FIELD  NAME  TYPE  WIDTH 

01  CODE  C  2 

02  NAME  C  15 
Primary  key:  CODE 

7 .  Monitor  File 

It  is  a  file  that  keeps  track  of  who  does  what  and 
when. 

Structure  for  file:   MONITOR 

FIELD  NAME  TYPE  WIDTH 

8 

16 

12 

12 

3 

8.  Statistic  File 

It  is  the  file  for  statistical  information  for 
each  deleted  officer. 

Structure  for  file:   STATISTIC 

FIELD  NAME  TYPE  WIDTH 

4 

16 

2 

4 

8 

8 
30 


01 

DATE 

C 

02 

NAME 

C 

03 

JOB 

C 

04 

FLE:REPT 

C 

05 

NUMREC 

N 

01 

SERNO 

C 

02 

NAME 

C 

03 

RANK 

C 

04 

UNIT 

C 

05 

REPTDATE 

C 

06 

DELDATE 

C 

9.   Tempor  File 

Structure  for  file:   TEMPOR 

FIELD  NAME  TYPE  WIDTH 

01  PASSWORD        C  5 

02  SELECT  C  2 
0  3  COUNTER         C  3 

C.   EXPLANATION  OF  FIELDS 

The  explanation  of  the  fields,  where  not  obvious,  is 
given  below: 

1 .  Master  File 

a.  SERNO:   The  serial  number  of  the  officer. 

b.  SERENTRY:   The  date  he  entered  the  military 
academy. 

c.  REPTDATE:   The  date  he  was  positioned  in  the 
current  unit. 

d.  EDUCAT:   His  education  besides  the  military 
studies. 

e.  FORLANG:   Foreign  languages  he  speaks. 

f.  MARSTAT:   His  marital  status. 

2 .  Monitor  File 

a.   FLE:REPT:   The  file  the  user  works  with,  or  the 
kind  of  report  he  prints. 

3.  Statistic  File 

a.  SERNO,  REPTDATE:   The  same  as  above. 

b.  DELDATE:   The  date  of  deletion  from  the  unit. 
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D.   DATA  FLOW  DIAGRAM 

The  update-  operations  are  performed  daily  to  update 
all  the  files  of  the  system.   These  operations  include 
insertion  and  deletion  of  records,  as  well  as  modifications 
in  one  or  more  fields.   The  output  of  the  update  operations 
are  the  same  files  updated  from  the  transactions  of  the  day 
These  files  are  then  used  as  input  by  the  report  generator 
function,  to  obtain  the  various  reports. 


OATA   BASE 


U   *  O  A  T  S" 
0*»«  PAT  I  O  »*  3 


OATA    JASS 


STATIST  '« 

Pi  l  7 


Recon t 

JI^E   BATOR.5 


M4UI  TO    •* 


Figure    10. 


Data  Flow  Diagram  for  the  Personnel 
Database  System 
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During  the  update  operations  the  STATISTIC  file  is 
created  automatically. 

The  MONITOR  file  is  created  from  the  update  operations, 
report  generators,  and  miscellaneous  operations. 

The  STATISTIC  and  MONITOR  files  are  not  seen  by  the 
user,  so  supporting  the  information  hiding  principle. 

The  data  flow  diagram  of  the  system  is  shown  in  Figure  10 
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— 
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— 

— 
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< 

^— 
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Figure  11.   Program  Map  for  the  Personnel  Database 
System 
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E.  SUPPORTING  PROGRAMS 

The  functional  blocks  we  have  already  defined  are 
selected  by  the  user  from  the  main  menu  of  the  system.   The 
control  is  then  transferred  to  the  corresponding  submenu 
(one  for  each  function) .   From  the  submenus  the  appropriate 
job  is  selected  from  an  option  list.   The  main  menu,  submenus, 
and  programs  form  a  hierarchical  relationship.   The  diagram 
of  this  relationship  is  the  program  map.   The  program  map 
for  the  personnel  database  system  is  shown  in  Figure  11. 

All  the  update  operations,  reports  and  printing,  as  well 
as  deletion  of  MONITOR  and  STATISTIC  files  are  selected  from 
SUBMENU1,  SUBMENU2,  and  SUBMENU3  respectively. 

F.  CODE  SYSTEM  FOR  THE  PERSONNEL  DATABASE 
1.   Codes  for  Ranks 


CODE 


01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

ARMY 
GENERAL  (GEN) 
LT  GENERAL  (LTG) 
MAJOR  GENERAL  (MG) 
BRIG  GENERAL  (BG) 
COLONEL  (COL) 
LT  COLONEL  (LTC) 
MAJOR  (MAJ) 
CAPTAIN  (CPT) 
FIRST  LIEUTENANT  (1LT) 
SECOND  LIEUTENANT  (2LT) 


NAVY 
ADMIRAL  (ADM) 
VICE  ADMIRAL  (VADM) 
REAR  ADMIRAL  (RADM) 
COMMODORE  (COMD) 
CAPTAIN  (CAPT) 
COMMANDER  (CDR) 
LT  COMMANDER  (LCDR) 
LIEUTENANT  (LT) 
FIRST  LIEUTENANT  (1LT) 
ENSIGN  (ENS) 
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2.      Codes    for   Units 


CODE                       TITLE 

1000                   1st  Inf  Div 

1101                  1st  Inf  Bn 

1102                   2nd  Inf  Bn 

1103                  3rd  Inf  Bn 

1104                  4th  Inf  Bn 

1105                   5th  Inf  Bn 

1206                   1st  Arty  Bn 

1207                   2nd  Arty  Bn 

13  08                   Armour  Bn 

1409                   Engineers  Bn 

1510                  Signals  Bn 

1611                  Sup/Trans  Bn 

2000                   Navy  Forces 

2101                   DD  Squadron 

2  2  02                   LST  Squadron 

2103                   DD  Miaoulis 

2104                   DD  Kanaris 

2105                   DD  Themis 

2206                   LST  Argo 

2207                   LST  Rhodes 

The  meaning  of  the  four  digits 

representing  the 

codes  of  the  units  is  as  follows: 
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1ST 

digit 

1: 

ARMY 

2: 

NAVY 

2ND 

digit 

It  dist 

inguishes  between  the  various  kinds  of  units 

as  follows: 

ARMY 

0: 

HEADQUARTERS 

1: 

INFANTRY 

2: 

ARTILLERY 

3: 

ARMOUR 

4: 

ENGINEERS 

5: 

SIGNAL 

6: 

SUPPLY-TRANSPORTATION 

3. 


NAVY 

0 :   COMMAND 

1:   DD  SQUADRON 

2:   LST  SQUADRON 
The  3rd  and  4th  digit  specify  each  unit 
Codes  for  Duties 


CODE 


01 

02 

03 

04 

NAME 
COMMANDER 
DTY  COMMANDER 
CHIEF  OF  STAFF 
1st  OFFICE  MANAGER 


36 


05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

4.   Codes  for  Sciences 

CODE 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

2nd  OFFICE  MANAGER 
3rd  OFFICE  MANAGER 
4th  OFFICE  MANAGER 
COMPANY  COMMANDER 
BATTERY  COMMANDER 
COMMANDING  OFFICER 
EXECUTIVE  OFFICER 
ASW  OFFICER 
NAVIGATION  OFFICER 
COMMUNICATION  OFFICER 
CIC  OFFICER 
ADJUTANT 

NAME 
MATHEMATICS 
PHYSICS 
CHEMISTRY 
AERONAUTICS 
EL/ENGINEERING 
MECH/ENGINEERING 
ECONOMICS 
OPER/ RESEARCH 
INFO/ SYSTEMS 
COMP  SYSTEMS 
COMP  SCIENCE 
MANAGEMENT 
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13  WEAPONS 

14  OCEANOGRAPHY 

15  SHIPBUILDING 

16  METEOROLOGY 

17  MEDICINE 

18  LEGAL  SCIENCES 

19  ARCHITECTURE 

20  CIV  ENGINEERING 

5 .  Codes  for  Education  Degree 
CODE  NAME 

B  BACHELOR 

M  MASTER 

P  Ph.D 

6 .  Codes  for  Foreign  Languages 
CODE  NAME 

ENGLISH 

GERMAN 

ITALIAN 

FRENCH 

SPANISH 

TURKISH 

ARABIC 

JAPANESE 

CHINESE 

PORTUGUESE 

RUSSIAN 
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01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12  BULGARIAN 

1 3  KOREAN 

14  DANISH 

15  SWEDISH 

16  DUTCH 
7 .   Codes  for  Marital  Status 

CODE  NAME 

M  MARRIED 

U  UNMARRIED 

D  DIVORCED 
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IV.   IMPLEMENTATION  PHASE 

A.   MAIN  MENU  AND  SUBMENUS  OF  THE  SYSTEM 

1 .  Mainmenu 

This  program  controls  the  whole  operation  of  the 
system,  and  is  called  from  another  program  called  BEGIN, 
which  is  the  only  program  the  user  calls  by  name.   The  pro- 
gram BEGIN  also  sets  drive  B  to  be  the  default  drive.   After 
initializing  basic  dBASE  II  functions  the  program  MAINMENU 
calls  another  program  called  PASSWORD  which  is  for  aborting 
unauthorized  users,  and  then  it  proceeds  by  displaying  the 
front  page  of  the  system.   Then  it  displays  on  the  screen 
the  main  menu  of  the  system,  and  pauses  waiting  for  the  user 
to  make  his  choice  which  is  stored  in  the  variable  'choice'. 
Then  a  CASE  statement  permits  the  program  to  branch  to  the 
corresponding  SUBMENU,  or  exit  either  to  the  operating  sys- 
tem, or  to  dBASE  II.   If  the  user  selects  a  wrong  choice, 
then  the  program  prints  an  error  message,  rings  the  bell, 
and  redisplays  the  screen.   This  is  performed  by  a  WHILE 
loop  using  the  boolean  value  T. 

2 .  Password 

This  program  is  called  by  the  MAINMENU  once  at  the 
beginning.   Each  user  has  a  password  to  enter  the  system. 
If  the  password  is  the  right  one,  the  user  is  allowed  to 
continue,  otherwise  the  program  gives  one  more  change.   If 
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the  password  is  wrong  again,  the  program  automatically 
exits  to  dBASE  II,  displaying  the  appropriate  message. 

During  the  execution  of  this  program,  we  have  to 
store  somewhere  the  password  to  be  used  by  the  MONITR  pro- 
gram, for  monitoring  the  changes.   This  is  done  by  using  a 
file  called  TEMPOR  with  three  fields,  password,  select,  and 
counter.   This  file  contains  only  one  record,  which  is  modi- 
fied properly  during  execution  of  the  programs  PASSWORD, 
and  SUBMENUS.   The  MONITR  program  is  called  from  the  pro- 
grams INSERT,  DELETE,  MODIFY,  REPORTS,  and  MISCELLANEOUS. 
3 .   Submenus 

All  three  SUBMENUS  operate  with  the  same  logic  as 
the  MAINMENU.   The  screen  displays  guide  the  user  in  what  to 
do  in  each  case.   These  programs  also  store  in  the  second 
field  of  the  file  TEMPOR,  the  selection  made  by  the  user. 

The  listings  of  the  programs  are  given  in  the  next 
pages . 
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***********  PROGRAM  MAINMENU  *********** 


*  This  program  controls  the  whole  operation  of  the  system 

*  Initialize  basic  functions 


SET  TALK  OFF 
SELECT  PRIMARY 
SET  FORMAT  TO  SCREEN 
SET  PRINT  OFF 
SET  CONSOLE  ON 
DO  password 
DO  frontpage 
DO  setdate 
DO  WHILE  T 
ERASE 

@   1,52  SAY  DATEO 
@   2, 13  SAY  "************ 
3, 13  SAY  "************ 
4, 13  SAY  "** 
5, 13  SAY  "** 
6, 13  SAY  "** 
7, 13  SAY  "************ 
8, 13  SAY  "** 
9, 13  SAY  "** 
@  10, 13  SAY 
@  11, 13  SAY 
@  12, 13  SAY 
@  13,  13  SAY 
@  14, 13  SAY 
@  15, 13  SAY 
@  16, 13  SAY 
@  17, 13  SAY 
@  18, 13  SAY 
@  19,  13  SAY 
@  20, 13  SAY 
@  23,  13  SAY  " 
STORE  "  "  TO  choice 
WAIT  TO  choice 


@ 
@ 
@ 
@ 


@ 


0   = 


'** 
'** 
'** 
'** 
'** 
'** 
•** 
'** 
'** 

Ente 


1   = 


2   = 


3   = 


4   = 


MAIN    MENU 
What  do  you  want  to  do? 

EXIT  TO  OPERATING  SYSTEM 

(When  you  are  finished) 
UPDATE  OPERATIONS 

( Insert, delete, modify  record 
REPORT  GENERATORS 

(Reports  available) 
MISCELLANEOUS 

(Files  statistics) 
EXIT  TO  dBASE 

(For  programmers  only) 

r  the  corresponding  number 


**•• 
**•■ 
**" 

**" 
**" 
**" 
**" 

s)  **" 
**•' 
**" 
**■• 
**" 
**'• 
**" 


*   Accept  choice  and  branch  to  corresponding  submenu 


DO  CASE 

CASE  choice  = 

QUIT 
CASE  choice  = 

DO  submenu 1 
CASE  choice  = 

DO  submenu2 
CASE  choice  = 

DO  submenu3 
CASE  choice  - 

CANCEL 
OTHERWISE 


'0" 


1" 


4" 
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*        Print  an  error  message  and  give  an  other  chance 

ERASE 

@  10,17  SAY  choice*"  IS  AN  ILLEGAL  CHOICE  -  TRY  AGAIN 

SET  TALK  OFF 

?  CHR(7) 

STORE  1  TO  del 

DO  WHILE  del  <  40 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE  T 
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********  PROGRAM  PASSWORD  ******** 

* 

*  This  program  is  for  aborting  unauthorized  users 

* 

ERASE 

@  10,22  SAY  "*****   ENTER  PASSWORD   *****" 

STORE  "      "  TO  pas word 

STORE  0  TO  count 

STORE  T  TO  Okey 

DO  WHILE  Okey 

SET  CONSOLE  OFF 
ACCEPT  TO  pasword 
SELECT  PRIMARY 
USE  TEMPOR 
DELETE  ALL 
PACK 

APPEND  BLANK 

REPLACE  password  WITH  pasword 
USE 

IF  pasword  =  "QWERT"  .OR.  pasword  =  "ASDFG" 
SET  CONSOLE  ON 

@  15,25  SAY  "OK,  You  may  continue" 
SET  TALK  OFF 
STORE  1  to  del 
DO  WHILE  del  <  25 

STORE  del+1  to  del 
ENDDO 
RETURN 
ELSE 

SET  CONSOLE  ON 
ERASE 
?  CHR(7) 

@  10,22  SAY  "WRONG  PASSWORD  -  TRY  AGAIN" 
STORE  count+1  TO  count 
IF  count  =  2 
ERASE 
DO  monitr 

@  10,25  SAY  "**  UNAUTHORIZED  USER  **" 
SET  DEFAULT  TO  A 
CANCEL 
ELSE 

STORE  "      "  TO  pasword 
ENDIF 
ENDIF 
ENDDO  WHILE 
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********  PROGRAM  FRONTPAGE  ******** 

*  This  program  prints  the  main  heading  of  the  system 


ERASE 

X      ^^  ^  iOii  X  ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^  ^^ ^^ 

@      2,  22  SAY  "****        ************************" 

7f~)   C~)  ^    A    W  *  *    •X-  -X-  X/  X/  >X-  \X-  X*  X-  -X-  ^U  X-  ^X-  X/  X-  •X-  X^  %1(  ■X-  X>  \X  ^  vX  %X-   X-  \X-  X-  X-  X-  -X-   ■X-    -X-    '  * 

^  ^  ijf^  ^         ^^  ^^  ^s  ^s  ^p  ^^  ^^  ^s  ^^  ^s  ^^  ^s  ^s  ^^  ^n  ^^  ^^  ^^  ^s  ^^  ^^  ^^  ^^  ^s  ^s  ^^  ^s  ^^  ^^  ^^  ^^ 

8o  o  O  A  \f  ' '   x-  x-  -x  x-  sx  x  x  x,  x-  x-  x-  x-  X/  x-  x.  -X/  x-  X-  -x  X'  x-  -x-  -x-  \X  x-  X/  %x-  -x-  x*  -x-  x-  ' ' 

^  ^  ij  tj  X  *^  '^  *^  ^^  ^^  *^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^n  ^*  ^^  ^*  ^~  ^~  ^*  ^^  ^"  ^^  ^^  ^^  ^^ 


2, 22  SAY  "**** 

3, 22  SAY  "**** 

4,  22  SAY  " 

5,22  SAY  "**** 

6, 22  SAY  "**** 


9, 22  SAY 
@  10,22  SAY 
@  12, 15  SAY 
@  13, 15  SAY 
@  14, 15  SAY 
@  15, 15  SAY 
@  16, 15  SAY 
@  17, 15  SAY 
@  18, 15  SAY 
@  19, 15  SAY 
@  20, 15  SAY 
SET  TALK  OFF 
STORE  1  TO  delay 
DO  WHILE  delay  <  80 

STORE  delay+1  TO  delay 
ENDDO  WHILE 
RETURN 


** 

** 

'** 

** 

'** 


A  PERSONNEL  DATABASE  SYSTEM 
FOR 
HELLENIC  ARMED  FORCES  FORMATIONS 


**' 
**' 
**' 
**' 
**' 
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********  PROGRAM  SETDATE  ******** 

*  This  program  asks  the  user  to  set  the  current  date 

ERASE 

SET  TALK  OFF 

STORE  "         "  TO  mdate 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 
@  12,12  SAY  "ENTER  DATE  (MM/DD/YY)  "  GET  mdate; 

PICTURE  "99/99/99" 
READ 

IF       VAL($(mdate, 1,2))  <  1; 
.OR.  VAL($( mdate, 1, 2))  >  12; 
.OR.  VAL($(mdate, 4, 2))  <  1; 
.OR.  VAL($( mdate, 4, 2))  >  31; 
.OR.  VAL($(mdate, 7, 2))  <>  85 
STORE  "        "  TO  mdate 
@  22,15  SAY  "INVALID  DATE,  PLEASE  RETRY" 
STORE  1  TO  del 
DO  WHILE  del  <  35 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
ELSE 

STORE  F  TO  continue 
SET  DATE  TO  &mdate 
END  IF 
ENDDO  WHILE 
RETURN 
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********  PROGRAM  MONITR  ******** 

*  This  program  adds  a  record  in  the  file  MONITOR  each  time  a  user 

*  enters  the  system,  to  keep  track  of  who  does  what  and  when. 

ERASE 

STORE  "  "  TO  mjob 

STORE  "  "  TO  mflerrept 

*  Use  the  fields  'password' and  'select'  of  file  TEMPOR  and  store 

*  the  appropriate  information  to  temporary  memory  variables 

SELECT  SECONDARY 

USE  tempor 

IF  password  =  "QWERT" 

STORE  "Ts agar is   Panag"  TO  mname 
ELSE 

IF  password  =  "ASDFG" 

STORE  "Karaiskos  Const"  TO  mname 
ELSE 

STORE  "Unauthorized    "  TO  mname 
END  IF 
ENDIF 
DO  CASE 

CASE  select  =  "11" 

STORE  "Insertion    "  TO  mjob 

STORE  "Master       "  TO  mflerrept 
CASE  select  =  "12" 

STORE  "Insertion    "  TO  mjob 

STORE  "Units        "  TO  mflerrept 
CASE  select  =  "13" 

STORE  "Insertion    "  TO  mjob 

STORE  "Ranks        "  TO  mflerrept 
CASE  select  =  "14" 

STORE  "Insertion    "  TO  mjob 

STORE  "Duties       "  TO  mflerrept 
CASE  select  =  "15" 

STORE  "Insertion    "  TO  mjob 

STORE  "Forlangs     "  TO  mflerrept 
CASE  select  =  "16" 

STORE  "Insertion    "  TO  mjob 

STORE  "Sciences     "  TO  mflerrept 
CASE  select  =  "21" 

STORE  "Deletion     "  TO  mjob 

STORE  "Master       "  TO  mflerrept 
CASE  select  =  "22" 

STORE  "Deletion     "  TO  mjob 

STORE  "Units        "  TO  mflerrept 
CASE  select  =  "23" 

STORE  "Deletion     "  TO  mjob 

STORE  "Ranks        "  TO  mflerrept 
CASE  select  =  "24" 

STORE  "Deletion     "  TO  mjob 

STORE  "Duties       "  TO  mflerrept 
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CASE  select 

=  "25" 

STORE  "De 

s let ion 

"  TO 

mjob 

STORE  "Forlangs 

'  TO 

mf le: rept 

CASE  select 

=  "26" 

STORE  "De 

sletion 

'  TO 

mjob 

STORE  "Sciences 

'  TO 

mf le: rept 

CASE  select 

=  "31" 

STORE  "Modification' 

'  TO 

mjob 

STORE  "Master 

*  TO 

mf le: rept 

CASE  select 

=  "32" 

STORE  "Modification" 

'  TO 

mjob 

STORE  "Un 

its 

'  TO 

mf le: rept 

CASE  select 

=  "33" 

STORE  "Modification" 

"  TO 

mjob 

STORE  "Ranks 

'  TO 

mf le: rept 

CASE  select 

=  "34" 

STORE  "Modification" 

'  TO 

mjob 

STORE  "Duties 

'  TO 

mf le: rept 

CASE  select 

=  "35" 

STORE  "Modification" 

"  TO 

mjob 

STORE  "Fc 

rlangs 

'  TO 

mf le: rept 

CASE  select 

=  "36" 

STORE  "Modification" 

'  TO 

mjob 

STORE  "Sciences 

"  TO 

mf le : rept 

CASE  select 

_  ..lfl 

IF  sub3 

STORE 

"Printing 

" 

TO 

mjob 

STORE 

"Monitor 

" 

TO 

mf le: rept 

ELSE 

STORE 

"Printing 

** 

TO 

mjob 

STORE 

"Reportl 

" 

TO 

mf le: rept 

END  IF 

CASE  select 

_  ,.2u 

IF  sub3 

STORE 

"Printing 

" 

TO 

mjob 

STORE 

"Statistic 

" 

TO 

mf le: rept 

ELSE 

STORE 

"Printing 

" 

TO 

mjob 

STORE 

"Report2 

" 

TO 

mf le: rept 

END  IF 

CASE  select 

=  "3" 

IF  sub3 

STORE 

"Deletion 

" 

TO 

mjob 

STORE 

"Monitor 

" 

TO 

mf le: rept 

ELSE 

STORE 

"Printing 

" 

TO 

mjob 

STORE 

"Report3 

" 

TO 

mf le: rept 

ENDIF 

CASE  select 

_  ..4» 

IF  sub3 

STORE 

"Deletion 

" 

TO 

mjob 

STORE 

"Statistic 

" 

TO 

mf le : rept 

ELSE 

STORE 

"Printing 

" 

TO 

mjob 
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STORE  "Report4 

" 

TO  mflerrept 

ENDIF 

CASE  select  =  "5" 

IF  sub3 

STORE  "Screen  Disp  " 

TO  mjob 

STORE  "Master 

" 

TO  mfle:rept 

ELSE 

STORE  "Printing 

" 

TO  mjob 

STORE  "Report5 

" 

TO  mflerrept 

ENDIF 

CASE  select  =  "6" 

STORE  "Printing 

'  TO 

mjob 

STORE  "Report6 

'  TO 

mf le: rept 

CASE  select  =  "7" 

STORE  "Printing 

'  TO 

mjob 

STORE  "Report7 

'  TO 

mf le: rept 

CASE  select  =  "8" 

STORE  "Printing 

'  TO 

mjob 

STORE  "Report8 

'  TO 

mf le : rept 

.CjIN.UUniD.nj 

STORE  counter  TO  mnumrec 

*  Append  the  record  to  the  MONITOR  file 

SELECT  SECONDARY 

USE  monitor 

APPEND  BLANK 

REPLACE  date  WITH  DATE() 

REPLACE  name  WITH  mname 

REPLACE  job  WITH  mjob 

REPLACE  fie: rept  WITH  mfle:rept 

REPLACE  numrec  WITH  mnumrec 

USE 

SELECT  PRIMARY 

RETURN 
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********  PROGRAM  SUBMENU1  ******** 

*  This  program  controls  the  Update  Operations 

*  of  the  system 


ERASE 
STORE  "   ' 
DO  WHILE  '. 
ERASE 
@  2,50 
@  3,  15 
@  4,  15 
@  5,  15 
@  6,  15 
@  7,  15 
@  8,  15 
@  9,  15 
10,  1 
11,1 

12,  1 

13,  1 

14,  1 

15,  1 

16,  1 
17,1 

@  18,  1 
@  20,  1 
@  21,  1 
@  22,  1 
@  23,  1 
ACCEPT 


TO  select 


SAY  DATEO 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
5  SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


*  *•' 

*  S  U  B  M  E  N  U  1  *" 

*  UPDATE   OPERATIONS  *" 

*  *" 


••* 
■•* 
••* 
••* 
"* 
••* 
••* 
••* 
"* 


OPTIONS 


0=Exit  to  MAIN  MENU 
l=Insertion 
2=Deletion 
3=Modif i cation 


FILES 

1=MASTER 

2=UNITS 

3=RANKS 

4=DUTIES 

5=F0RLANGS 

6=SCIENCES 


*" 
*" 
*'• 
*" 
*" 
*■• 
*" 
*•' 
*" 


Make  the  appropriate  selection  by  pressing" 
"the  option  number  first  and  then  the  file 
"number.  For  example,  if  you  want  to  insert 
"records  in  file  UNITS,  press  12. 


TO  selection 


*  Store  selection  to  the  field  select  of  the  file  TEMPOR 

*  in  order  to  be  used  by  the  monitor  program 

SELECT  PRIMARY 

USE  tempor 

REPLACE  select  WITH  selection 

USE 

*  Accept  the  selection  and  branch  to  the  corresponding  program 


DO  CASE 

CASE  selection  = 

"0" 

RETURN 

CASE  selection  = 

"11" 

DO  insertl 

CASE  selection  = 

"12" 

DO  insert2 

CASE  selection  = 

"13" 

DO  insert3 

CASE  selection  = 

"14" 

DO  insert4 

CASE  selection  = 

"15" 
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DO  insert5 
CASE  selection  =  "16" 

DO  insert6 
CASE  selection  =  "21" 

DO  deletel 
CASE  selection  =  "22" 

DO  delete2 
CASE  selection  =  "23" 

DO  delete3 
CASE  selection  =  "24" 

DO  delete4 
CASE  selection  =  "25" 

DO  delete5 
CASE  selection  =  "26" 

DO  delete6 
CASE  selection  =  "31" 

DO  modifyl 
CASE  selection  =  "32" 

DO  modify2 
CASE  selection  =  "33" 

DO  modify3 
CASE  selection  =  "34" 

DO  modify4 
CASE  selection  =  "35" 

DO  modify5 
CASE  selection  =  "36" 

DO  modify6 
OTHERWISE 

?  CHR(7) 

ERASE 

@  10,17  SAY  selection*"  IS  AN  ILLEGAL  SELECTION' 

@  10,43  SAY  ",  PLEASE  TRY  AGAIN" 

SET  TALK  OFF 

STORE  1  TO  delay 

DO  WHILE  delay  <  40 

STORE  delay+1  TO  delay 

ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE  T 
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********  PROGRAM  SUBMENU2  ******** 

*  This  program  controls  the  Report  Generators 

*  function  of  the  system 

STORE  T  TO  noexit 
STORE  F  TO  sub3 
DO  WHILE  noexit 

SET  PRINT  OFF 

ERASE 


* 


50  SAY  DATEO 

13  SAY  "*  S  U  B  M  E  N  U  2  *" 

13  SAY  "*      REPORTS   AVAILABLE        *' 


@   1 

@   2 

@   3 

@   4 

@   5 

@   6 

@   7 

@   8 

@   9 

@  10 

@  11 

@  12 

@  13 

@  14 

@  15 

@  16 

@  17 

@  18 

@  19 

@  20 

@  21 

@  22 

@  23 

STORE 

WAIT  TO  choice 

Store  choice  to  the  "select"  field  of  tempor  to  be  used 
by  the  monitor  program 

SELECT  SECONDARY 

USE  tempor 

REPLACE  select  WITH  choice 

USE 


*" 
*" 
*•■ 
*•• 
*" 
*" 
*■' 
*•• 


13  SAY  "*  l=List  of  officers  in  alphabetical  order 

13  SAY  "* 

13  SAY  "*  2=List  of  officers  ordered  by  rank 

13  SAY  "* 

13  SAY  "*  3=List  of  units  with  their  officers 

13  SAY  "* 

13  SAY  "*  4=List  of  officers  with  non_military  studies 

13  SAY  "* 

13  SAY  "*  5=List  of  officers  who  know  foreign  languages  *" 

13  SAY  "*  *" 

13  SAY  "*  6=List  of  officers  including  marital  status    *" 

13  SAY  "*  *" 

13  SAY  "*  7=List  of  officers  with  service  times         *" 

13  SAY  "*  *" 

13  SAY  "*  8=List  of  officers  with  addresses  and  phonetf   *" 

13  SAY        Enter  the  corresponding  number  OR 

13  SAY  "         enter  0  to  exit  to  main  menu 
"  TO  choice 


*   Accept  the  choice  and  branch  to  corresponding  program 

DO  CASE 

CASE  choice  =  "0" 

RETURN 
CASE  choice  =  "1" 

DO  report 1 
CASE  choice  =  "2" 

DO  report2 
CASE  choice  =  "3" 
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DO  report3 
CASE  choice  =  "4" 

DO  report4 
CASE  choice  =  "5" 

DO  report5 
CASE  choice  =  "6" 

DO  report6 
CASE  choice  =  "7" 

DO  report7 
CASE  choice  =  "8M 

DO  report8 
OTHERWISE 

*        Print  an  error  message  and  give  another  chance 

ERASE 

?  CHR(7) 

@  10,17  SAY  choice*"  IS  AN  ILLEGAL  CHOICE  -  TRY  AGAIN 

STORE  1  TO  del 

DO  WHILE  del  <  40 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE 
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********  PROGRAM  SUBMENU3  ******** 
* 

*  This  program  controls  the  Miscellaneous  function 

*  of  the  system 
* 

ERASE 

STORE  T  TO  noexit 
STORE  T  TO  sub3 
DO  WHILE  noexit 

ERASE 

SET  PRINT  OFF 

@   3,52  SAY  DATEO 

@  b, 16  SAY  "*  *" 

@  6,16  SAY  "*  SUBMENU3               *" 

@  7,16  SAY  "*  MISCELLANEOUS   OPERATIONS          *" 

@  8, 16  SAY  "*  *" 

@  lo! 16  SAY  "*  *" 

@  11,16  SAY  '•*  0  =  Exit  to  MAIN  MENU  *" 

@  12,16  SAY  "*  1  =  Print  MONITOR  file  *" 

@  13,16  SAY  "*  2  =  Print  STATISTIC  file  *" 

@  14,16  SAY  "*  3  =  Delete  MONITOR  file  *" 

@  15,16  SAY  "*  4  =  Delete  STATISTIC  file  *" 

@  16,16  SAY  "*  5  =  Display  an  officer's  data  *" 

@  17, 16  SAY  "*  on  the  screen  *" 

@  20, 16  SAY  "        Enter  the  corresponding  number 
STORE  "  "  TO  choice 
WAIT  TO  choice 

*  Store  choice  to  the  "select"  field  of  TEMPOR  to  be  used 

*  by  the  monitor  program 

SELECT  SECONDARY 

USE  tempor 

REPLACE  select  WITH  choice 

USE 

*  Accept  choice  and  branch  to  the  corresponding  program 

DO  CASE 

CASE  choice  =  "0" 

RETURN 
CASE  choice  =  "1" 

DO  printmon 
CASE  choice  =  "2" 

DO  printstat 
CASE  choice  =  "3" 

DO  delmon 
CASE  choice  =  "4" 

DO  delstat 
CASE  choice  =  "5" 

DO  dispscrn 
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OTHERWISE 

*        Print  an  error  message  and  give  another  chance 

ERASE 

?  CHR(7) 

@  11,17  SAY  choice*"  IS  AN  ILLEGAL  CHOICE  -  TRY  AGAIN 

STORE  1  TO  del 

DO  WHILE  del  <  40 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE 
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B.   PROGRAMS  IMPLEMENTING  THE  UPDATE  OPERATIONS 

These  programs  permit  the  user  to  perform  insertions, 
deletions,  and  modifications  in  the  files  of  the  database. 
1 .   Insertion  Programs 

These  programs  are  for  adding  records  to  the  data- 
base files.   The  structure  of  all  the  programs  follow  the 
same  logic,  so  we  will  describe  only  the  program  which  adds 
records  to  the  MASTER  (PERSONNEL)  file. 

The  whole  structure  of  the  program  is  as  follows: 

a.  The  MASTER  file  is  opened. 

b.  The  user  is  prompted  to  enter  the  new  serial 
number  or  a  blank  in  order  to  exit  to  SUBMENUl ,  when  he  is 
finished. 

c.  The  program  searches  the  MASTER  file  for  the 
new  serial  number.   If  it  already  exists,  prints  an  error 
message  and  gives  another  chance,  otherwise  it  proceeds. 

d.  The  proper  memory  variables,  in  which  the  new 
values  are  to  be  stored,  are  initialized  to  blanks.   For 
simplicity  the  names  of  the  memory  variables  are  the  same 
as  the  corresponding  field  names  with  the  prefix  'm' ,  which 
stands  for  memory.   This  holds  throughout  the  whole  system. 

e.  Then  the  program  displays  on  the  screen  the  new 
serial  number,  the  names  of  the  fields  and  the  corresponding 
blank  space.   Then  the  user  can  enter  the  new  values.   Again 
the  user  has  the  opportunity  to  exit  by  pressing  'ENTER1. 
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f.  Then  a  blank  record  is  appended  to  the  MASTER 
file  and  each  field  is  replaced  with  the  corresponding 
memory  variable. 

g.  The  whole  operation  is  repeated  within  a  WHILE 
loop,  until  the  user  exits. 

h.   The  program  MONITR  which  is  for  monitoring  every 
job  done  in  the  database,  is  called  only  once  before  the 
program  exits  from  either  of  the  three  possible  exits,  and 
after  the  number  of  changes  is  stored  in  the  field  'counter' 
of  the  file  TEMPOR.   This  is  performed  in  all  the  programs 
that  need  to  monitor  the  job  done  in  the  database. 

The  listings  of  the  programs  are  given  in  the  fol- 
lowing pages. 
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********  PROGRAM  INSERT1  ******** 

*  This  program  adds  records  to  MASTER (PERSONNEL)  file 

ERASE 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  0  TO  count 

STORE  "*****  ADDING  RECORDS  TO  MASTER  FILE  *****"  TO  titlel 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "     "  to  mserno 

@  5,60  SAY  DATEO 

@  7,5  SAY  titlel 

@  10,5  SAY  "ENTER  A  SERIAL  NUMBER"  GET  mserno  PICTURE  "9999 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mserno, 1, 1 )  =  "  " 
USE 

*  Before  the  program  returns,  it  stores  the  variable 

*  count (#  of  changes)  to  the  field  'counter'  of  TEMPOR 

*  and  records  the  changes.  This  is  done  in  all  three 

*  exits  of  the  program. 

IF  count  >  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

*  Search  the  master  file  for  the  new  serial  number. 

*  If  it  already  exists  print  an  error  message,  display 

*  the  record  and  let  the  user  decide  what  to  do. 

FIND  &mserno 
IF  it  <>  0 

?  CHR(7) 

@  14,5  SAY  "The  record  already  exists" 

@  16,5  SAY  "The  current  record  is:" 

@  18,5  SAY  "serial  number  =  "+serno 

@  19,5  SAY  "name  =  "+name 

@  21,5  SAY  "TRY  AGAIN?   (Y/N)" 

STORE  "  "  TO  answer 

WAIT  TO  answer 

IF  answer  =  "y" 
LOOP 

ELSE 
USE 
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IF  count  >  0 

SELECT  SECONDARY 

USE  tempo r 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 
END  IF 

*  Initialize  memory  variables 


ERASE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


TO  mname 
'  TO  mrank 
"  TO  munit 

TO  mserentry 
TO  mreptdate 
1  TO  mduty 

TO  meducat 
TO  mdegree 
1  TO  mforlang 
TO  mmarstat 
TO  mchildren 


TO  maddress 


TO  mphone 
@  1,60  SAY  DATEO 
@  2,  5  SAY  titlel 
@  4,  5  SAY  "serial  number  =  "+mserno 

*  Get  the  values  for  the  new  record 


5, 5  SAY  "name 


@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 


6,5  SAY 
7,5  SAY 


8,  5 
9,5 
10,5 
11,5 
12,5 
13,5 
14,  5 
15,5 
16,  5 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


@  17,5  SAY 

@  20, 5  SAY 

READ 

IF  $(mname, 1,1)  =  " 

USE 

IF  count  >  0 

SELECT  SECONDARY 


GET  mname; 

PICTURE  "XXXXXXXXXXXXXXXX" 
'rank     "  GET  mrank  PICTURE  "99" 
"unit     "  GET  munit  PICTURE  "9999" 
"serentry"  GET  mserentry  PICTURE  "999999' 
'reptdate"  GET  mreptdate  PICTURE  "999999' 
'duty     "  GET  mduty  PICTURE  "99" 
'educat   "  GET  meducat  PICTURE  "99" 
'degree   "  GET  mdegree  PICTURE  "A" 
'forlang  "  GET  mforlang  PICTURE  "99" 
"marstat  "  GET  mmarstat  PICTURE  "A" 
'children"  GET  mchildren  PICTURE  "9" 
'address  "  GET  maddress; 

PICTURE  "XXXXXXXXXXXXXXXXXXXX' 
'phone    "  GET  mphone  PICTURE  "9999999" 
'Enter  blanks  to  exit" 
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USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Append  a  new  empty  record  in  the  master  file  and  replace 

*  each  field  with  the  corresponding  memory  variable. 

APPEND  BLANK 

REPLACE  serno  WITH  mserno 
REPLACE  name  WITH  mname 
REPLACE  rank  WITH  mrank 
REPLACE  unit  WITH  munit 
REPLACE  serentry  WITH  mserentry 
REPLACE  reptdate  WITH  mreptdate 
REPLACE  duty  WITH  mduty 
REPLACE  educat  WITH  meducat 
REPLACE  degree  WITH  mdegree 
REPLACE  forlang  WITH  mforlang 
REPLACE  marstat  WITH  mmarstat 
REPLACE  children  WITH  mchildren 
REPLACE  address  WITH  maddress 
REPLACE  phone  WITH  mphone 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  INSERT2  ******** 

*  This  program  adds  records  to  UNITS  file 

ERASE 

SELECT  PRIMARY 

USE  units  INDEX  units 

STORE  "*****  ADDING  RECORDS  TO  UNITS  FILE  *****"  TO  title2 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "     "  TO  mcode 

@  5,60  SAY  DATEO 

@  7,5  SAY  title2 

@  10,5  SAY  "ENTER  A  UNIT  CODE"  GET  mcode  PICTURE  "9999" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $( mcode, 1,1)  =  "  " 
USE 

*  Before  the  program  returns,  it  updates  the  TEMPOR  and 

*  MONITOR  files.  This  is  done  in  all  three  exits  of  the 

*  program 

IF  count  >  0 

SELECT  SECONDARY 

USE  TEMPOR 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

*  Search  the  units  file  for  the  new  unit  code.  If  it  already  exists 

*  print  an  error  message  and  give  another  chance  otherwise  proceed. 

FIND  &mcode 
IF  n   <>  0 
?  CHR(7) 
@  14,5  SAY 
@  16,  5  SAY 
@  18,5  SAY 
@  19,5  SAY 
@  20, 5  SAY 
@  22,5  SAY 
STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 
ELSE 

USE 

IF  count  >  0 
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'The  record  already  exists" 
'The  current  record  is:" 
'code      =  "+code 
'title     =  "+title 
'location  =  "+location 
'TRY  AGAIN  ?   (Y/N)" 


SELECT  SECONDARY 
USE  tempo r 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 
END  IF 

*  Initialize  memory  variables 

ERASE 

STORE  "  "  TO  mtitle 

STORE  "  "  TO  mlocation 

@  3,60  SAY  DATEO 
@  5,5  SAY  title2 
@  8, 5  SAY  "unit  code  =  "+mcode 

@  10,5  SAY  "title    "  GET  mtitle  PICTURE  " XXXXXXXXXXXXXXX ' 
@  11,5  SAY  "location"  GET  mlocation  PICTURE  "XXXXXXXXXXXX' 
@  15,5  SAY  "Enter  blanks  to  exit" 
READ 

IF  $(mtitle, 1, 1)  =  "  " 
USE 
IF  count  >  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Append  a  blank  record  in  the  units  file  and  replace 

*  each  field  with  the  corresponding  memory  variables 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  title  WITH  mtitle 
REPLACE  location  WITH  mlocation 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  INSERT3  ******** 

*  This  program  adds  records  to  RANKS  file 

ERASE 

SELECT  PRIMARY 
USE  ranks  INDEX  ranks 

STORE  "*****  ADDING  RECORDS  TO  RANKS  FILE  *****"  TO  title3 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "   "  TO  mcode 
@  5,60  SAY  DATEO 
@  7,5  SAY  title3 

@  10,5  SAY  "ENTER  A  RANK  CODE"  GET  mcode  PICTURE  "99" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1, 1)  =  "  " 
USE 
IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
ENDIF 

*  Search  the  RANKS  file  for  the  new  code.  If  it  already 

*  exists  print  an  error  message  and  give  another  chance 

*  otherwise  proceed 

FIND  &mcode 
IF  #  <>  0 
?  CHR(7) 
@  14, 10  SAY 
@  16,5   SAY 
@  18,5   SAY 
@  19,  5   SAY 
@  20, 5   SAY 
@  22,5   SAY 
STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 
ELSE 
USE 
IF  count  >  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 
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The  record  already  exists" 
The  current  record  is:" 
code      =  "+code 
armyname  =  "+armyname 
navyname  =  "+navyname 
TRY  AGAIN  ?   (Y/N)" 


DO  monitr 
END  IF 
RETURN 
END  IF 
ENDIF 

*  Initialize  memory  variables 

ERASE 

STORE  "     "  TO  marmyname 

STORE  "     "  TO  mnavyname 

*  Get  the  new  values 

@  4,60  SAY  DATEO 

@  5,5  SAY  title3 

@  8,5   SAY  "Rank  code  =  "+mcode 

@  10,5  SAY  "armyname"  GET  marmyname  PICTURE  "XXXX' 

@  11,5  SAY  "navyname"  GET  mnavyname  PICTURE  "XXXX" 

READ 

*  Append  the  new  record  to  the  RANKS  file 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  armyname  WITH  marmyname 
REPLACE  navyname  WITH  mnavyname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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**********  PROGRAM  INSERT4  ********** 

*  This  program  adds  records  to  DUTIES  file 

ERASE 

SELECT  PRIMARY 
USE  duties  INDEX  duties 

STORE  "*****  ADDIND  RECORDS  TO  DUTIES  FILE  *****"  TO  title4 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "   "  TO  mcode 
@  5,60  SAY  DATEO 
@  7,5   SAY  title4 

@  10,5  SAY  "ENTER  A  DUTY  CODE"  GET  mcode  PICTURE  "99" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1,1)  =  "  " 
USE 
IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

*  Search  DUTIES  file  for  the  new  code.  If  it  exists  print  an 

*  error  message  and  give  another  chance,  otherwise  proceed. 


FIND  &mcode 
IF  n   <>   0 

?  CHR(7) 

@  14, 5   SAY 

@  16,5 

@  18,5 

@  19,5 

@  21,5 

STORE 


"The  record  already  exists 

"The  current  record  is:" 

"code  =  "+code 

"name  =  "+name 

"TRY  AGAIN  ?   (Y/N)" 


SAY 
SAY 
SAY 
SAY 

"  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 
ELSE 
USE 
IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
ENDIF 
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RETURN 
ENDIF 
END  IF 

STORE  "  "  TO  mname 

ERASE 

@  5,60  SAY  DATEO 
@  7,5  SAY  title4 
@  10,5  SAY  "duty  code  =  "+mcode 

@  12,5  SAY  "name"  GET  mname  PICTURE  " XXXXXXXXXXXXXXXXXXXX ' 
READ 

*   Append  the  record  to  DUTIES  file 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count+1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  INSERT5  ******** 

*  This  program  adds  records  to  FOREIGN  LANGUAGES  file 

ERASE 

SELECT  PRIMARY 
USE  forlangs  INDEX  forlangs 

STORE  "*****  ADDING  RECORDS  TO  FORLANGS  FILE  *****"  TO  title5 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "   "  TO  mcode 
@  5,60  SAY  DATEO 
@  7,5  SAY  title5 

@  10,5  SAY  "ENTER  A  LANGUAGE  CODE"  GET  mcode  PICTURE  "99" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode,  1,1)  =  "  " 
USE 
IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  the  forlangs  file  for  the  new  code.  If  it  already 

*  exists,  print  an  error  message  and  give  another  change, 

*  otherwise  proceed 

FIND  &mcode 
IF  #  <>  0 
?  CHR(7) 

@  14,5  SAY  "The  record  already  exists.  Try  again." 
@  16,5  SAY  "The  current  record  is:" 
@  18,5  SAY  "code  =  "+code 
@  19,5  SAY  "name  =  "+narae 
@  21,5  SAY  "TRY  AGAIN?   (Y/N)" 
STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 
ELSE 
USE 
IF  count  >  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
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END  IF 
RETURN 
END  IF 
END  IF 

*  Initialize  memory  variables. 

ERASE 

STORE  "  "  TO  mname 

@  4,60  SAY  DATEO 

@  5,5  SAY  title5 

@  8,5  SAY  "language  code  =  "+mcode 

*  Get  the  name  for  the  new  language. 

@  10,5  SAY  •'name"  GET  mname  PICTURE  " XXXXXXXXXXXX ' 
READ 

*  Append  an  empty  record  and  replace  the  fields 

*  with  the  corresponding  memory  variables. 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  INSERT6  ******** 

*  This  program  adds  records  to  SCIENCES  file 

ERASE 

SELECT  PRIMARY 
USE  sciences  INDEX  sciences 

STORE  "*****  ADDIND  RECORDS  TO  SCIENCES  FILE  *****"  TO  title6 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "   "  to  mcode 
@  5,60  SAY  DATEO 
@  7,5  SAY  title6 

@  10,5  SAY  "ENTER  A  SCIENCE  CODE"  GET  mcode  PICTURE  "99" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1,1)  =  "  " 
USE 
IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
ENDIF 

*  Search  the  sciences  file  for  the  new  code.  If  it  already 

*  exists,  print  an  error  message  and  give  another  chance, 

*  otherwise  proceed 

FIND  &mcode 
IF  #  <>  0 
?  CHR(7) 

@  14,5  SAY  "The  record  already  exists" 
@  16,5  SAY  "The  current  record  is:" 
@  18,5  SAY  "code  =  "+code 
@  19,5  SAY  "name  =  "+name 
@  21,5  SAY  "TRY  AGAIN?   (Y/N)" 
STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 
ELSE 
USE 
IF  count  >  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
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END  IF 
RETURN 
END  IF 
END  IF 

*  Initialize  memory  variable 

ERASE 

STORE  "  "  TO  mname 

@  4,60  SAY  DATEO 

@  5,5  SAY  title6 

@  8,5  SAY  "science  code  =  "+mcode 

*  Get  the  name  for  the  new  science 

@  10,5  SAY  "name"  GET  mname  PICTURE  " XXXXXXXXXXXXXXXXXXX ' 
READ 

*  Append  an  empty  record  and  replace  the  fields  with 

*  the  corresponding  memory  variable. 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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2 .   Deletion  Programs 

These  programs  are  for  deleting  records  from  the 
files  of  the  database.   Again  we  will  describe  only  the 
program  that  performs  deletions  from  the  MASTER  file  since 
all  the  other  programs  have  the  same  structure. 

The  structure  of  the  program  is  as  follows: 

a.  The  MASTER  file  is  opened. 

b.  The  user  is  prompted  to  enter  the  serial  number, 
which  is  the  key  value  of  the  record  to  be  deleted.   He 

can  also  exit  by  pressing  'ENTER'. 

c.  When  the  user  exits  after  he  is  finished,  that 
is,  after  several  deletions  have  been  made,  then  the  number 
of  deletions  which  is  kept  in  the  variable  'count',  is  trans- 
ferred to  the  field  'counter'  of  the  file  TEMPOR.   Then  the 
program  MONITR  is  called  to  record  the  changes.   If  the  user 
exits  at  the  beginning,  that  is,  without  doing  anything,  then 
the  program  returns  to  SUBMENU1 . 

d.  The  MASTER  file  is  searched  for  the  serial  num- 
ber.  If  the  record  does  not  exist,  the  program  prints  an 
error  message,  and  gives  another  chance.   If  the  record 
exists,  then  it  is  displayed  on  the  screen. 

e.  At  this  point  the  user  is  asked  to  confirm  the 
deletion.   If  he  is  sure  that  the  record  must  be  deleted, 

he  has  just  to  enter  'Y',  and  the  deletion  operation  is  per- 
formed, otherwise  he  has  to  enter  'N'  to  abort  the  deletion. 
Then  the  program  loops,  repeating  the  whole  operation. 

The  listings  of  the  programs  are  given  in  the  next  pages. 
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********  PROGRAM  DELETE1  ******** 

*  This  program  deletes  records  from  MASTER  file 

ERASE 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  "*****  DELETING  RECORDS  FROM  MASTER  FILE  *****"  TO  title 

STORE  "     "  TO  mserno 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

@  5,60  SAY  DATEO 

@  7,5   SAY  title 

@  10,5  SAY  "Enter  serial  number"  GET  mserno  PICTURE  "9999" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mserno, 1, 1 )  =  "  " 
USE 

*  If  the  user  has  already  made  deletions  store  the 

*  number  of  deletions  in  the  file  TEMPOR,  record 

*  the  changes  and  return  to  SUBMENU1,  otherwise 

*  just  return 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

*  Search  MASTER  file  for  the  serial  number.  If  the 

*  record  does  not  exist  print  an  error  message  and 

*  give  another  chance,  otherwise  display  the 

*  record  and  let  the  user  confirm  the  deletion. 

FIND  &mserno 
IF  #  =  0 

?  CHR(7) 

@  22,5  SAY  "The  record  does  not  exist,  try  again" 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

STORE  "     "  TO  mserno 

LOOP 
ELSE 

ERASE 

@  2,60  SAY  DATE( ) 
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@  3,5 

SAY  title 

@  5,5 

SAY 

'Record  to  be  deleted" 

@  7,5 

SAY 

'serno 

- 

"+serno 

@  8,5 

SAY 

'name 

— 

"+name 

@  9,5 

SAY 

'rank 

— 

"+rank 

@  10,5 

SAY 

'unit 

— 

"+unit 

@  11,5 

SAY 

"serentry 

— 

"+serentry 

@  12,5 

SAY 

'reptdate 

— 

"+reptdate 

@  13,5 

SAY 

"duty 

— 

" +duty 

@  14,5 

SAY 

'educat 

— 

"+educat 

@  15,5 

SAY 

'degree 

— 

"+degree 

@  16,5 

SAY 

'forlang 

— 

"+forlang 

@  17,5 

SAY 

"marstat 

— 

"+marstat 

@  18,  5 

SAY 

'children 

— 

"+children 

@  19,5 

SAY 

'address 

— 

"+address 

@  20,5 

SAY 

'phone 

— 

"+phone 

?  CHR(7) 

@  22,5 

SAY 

'The  record 

will  be  deleted. 

PROCEED 

STORE 

1  "  T( 

}  answer 

WAIT  TO  ans< 

trer 

?   (Y/N) 


*  If  the  user  confirms  the  deletion  some  data 

*  concerning  the  officer  in  question  are 

*  transfered  to  the  STATISTIC  file  and  then  the 

*  deletion  is  performed. 


IF  answer  =  "y" 

SELECT  SECONDARY 
USE  statistic 
APPEND  BLANK 


REPLACE 

serno  WITH 

P- 

serno 

REPLACE 

name   WITH 

P- 

name 

REPLACE 

rank  WITH 

P. 

rank 

REPLACE 

unit   WITH 

P- 

unit 

REPLACE 

reptdate  WITt 

[  ; 

$(p.  ] 

reptdate, 1,  \ 

D* 

■"/"+$(p 

+$(p 

.  reptdate,  5 

,2) 

REPLACE 

deldate  WITH 

DATEO 

USE 

SELECT  ] 

PRIMARY 

DELETE 

PACK 

STORE  c 

Dunt+1  TO  c< 

Dunt 

ENDIF 

ENDIF 

STORE 

■  ■          •■ 

10  mserno 

ENDDO  WHILE  cont 

inue 

reptdate, 3,2)+"/' 
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********  PROGRAM  DELETE2  ******** 

*  This  program  deletes  records  from  UNITS  file 

ERASE 

SELECT  PRIMARY 

USE  units  INDEX  units 

STORE  "*****  DELETING  RECORDS  FROM  UNITS  FILE  *****"  TO  tittle 

STORE  "     "  TO  mcode 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

@  5,60  SAY  DATEO 

@  7, 5   SAY  tittle 

@  10,5  SAY  "Enter  unit  code"  GET  mcode  PICTURE  "9999" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $( mcode, 1,1)  =  "  " 
USE 

*  If  the  user  has  already  made  deletions  , store  the  number 

*  of  deletions  in  the  file  TEMPOR,  record  the  changes  and 

*  and  return  to  SUBMENU1,  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 

USE  terapor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  UNITS  file  for  the  unit  code.  If  the  record  does  not 

*  exist  print  an  error  message  and  give  another  chance, 

*  otherwise  display  the  record  and  let  the  user  confirm 

*  the  deletion 

FIND  &mcode 
IF  #  =  0 

?  CHR(7) 

@  22,5  SAY  "  The  record  does  not  exist,  try  again" 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

STORE  "     "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2, 60  SAY  DATE( ) 

@  3, 5   SAY  tittle 
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@  5,5   SAY  "Record  to  be  deleted" 

@  7,5   SAY  "code      =  "+code 

@  8,5   SAY  "title    =  "+title 

@  9,5   SAY  "location  =  "+ location 

?  CHR(7) 

@  15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?   (Y/N) 

STORE  "  "  TO  answer 

WAIT  TO  answer 

IF  answer  =  "y" 

DELETE 

PACK 

STORE  count+1  TO  count 
END  IF 
ENDIF 

STORE  "     "  TO  mcode 
ENDDO  WHILE  continue 
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********  PROGRAM  DELETE3  ******** 

*  This  program  deletes  records  from  RANKS  file 

ERASE 

CLEAR 

SELECT  PRIMARY 

USE  ranks  INDEX  ranks 

STORE  "*****  DELETING  RECORDS  FROM  RANKS  FILE  *****"  TO  title 

STORE  "   "  TO  mcode 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

@  5,60  SAY  DATEO 

@  7, 5   SAY  title 

@  10,5  SAY  "Enter  rank  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode, 1,  1)  =  "  " 
USE 

*  If  the  user  has  already  made  deletions,  store  the  number 

*  of  deletions  in  the  file  TEMPOR,  record  the  changes  and 

*  return  to  SUBMENU1,  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

*  Search  RANKS  file  for  the  code.  If  the  record  does  not  exist, 

*  print  an  error  message  and  give  another  chance,  otherwise 

*  display  the  record  and  let  the  user  confirm  the  deletion. 


FIND  &mcode 
IF  #  =  0 

?  CHR(7) 

@  22,5  SAY  "The  record  does  not  exist,  try  again 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

STORE  "   "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2,60  SAY  DATE( ) 

@  3, 5   SAY  title 
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@  5,5   SAY  "Record  to  be  deleted" 

@  7,5   SAY  "code     =  "+code 

@  8,5   SAY  "armyname  =  "+armyname 

@  9,  5   SAY  "navyname  =  "+navyname 

?  CHR(7) 

@  15,10  SAY  "The  record  will  be  deleted.  PROCEED  ?   (Y/N) 

STORE  "  "  TO  answer 

WAIT  TO  answer 

IF  answer  =  "y" 

DELETE 

PACK 

STORE  count +1  TO  count 
END  IF 
ENDIF 

STORE  "   "  TO  mcode 
ENDDO  WHILE  continue 
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********  PROGRAM  DELETE4  ******** 

*  This  program  deletes  records  from  DUTIES  file 

ERASE 

SELECT  PRIMARY 

USE  duties  INDEX  duties 

STORE  "*****  DELETING  RECORDS  FROM  DUTIES  FILE  *****"  TO  title 

STORE  "   "  TO  mcode 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

@  5,60  SAY  DATEO 

@  7,5   SAY  title 

@  10,5  SAY  "Enter  duty  code"  GET  racode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode,  1,1)  =  "  " 
USE 

*  If  the  user  has  already  made  deletions  store  the  number 

*  of  deletions  in  the  file  TEMPOR,  record  the  changes  and 

*  return  to  SUBMENU1,  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  DUTIES  file  for  the  duty  code.  If  the  record  does  not 

*  exist,  print  an  error  message  and  give  another  chance,  other- 

*  wise  display  the  record  and  let  the  user  confirm  the  deletion 

FIND  &mcode 
IF  #  =  0 

?  CHR(7) 

@  22,5  SAY  "The  record  does  not  exist,  try  again" 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 


STORE  ' 

■      n 

TO  mcode 

LOOP 

ELSE 

ERASE 

@  2,  60 

SAY 

DATE( ) 

@  3,5 

SAY 

title 

@  5,  5 

SAY 

"Record  to 

be 

de 

leted" 
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@  7,5  SAY  "code  =  "+code 
@  8,5  SAY  "name  =  "+name 
?  CHR(7) 

@  15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?   (Y/N) 
STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 
DELETE 
PACK 

STORE  count +1  TO  count 
END  IF 
ENDIF 

STORE  "   "  TO  mcode 
ENDDO  WHILE  continue 
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********  PROGRAM  DELETE5  ******** 

*  This  program  deletes  records  from  FORLANGS  file 

ERASE 

SELECT  PRIMARY 

USE  forlangs  INDEX  forlangs 

STORE  "*****  DELETING  RECORDS  FROM  FORLANGS  FILE  *****"  TO  title 

STORE  "   "  TO  mcode 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

@  5,60  SAY  DATEO 

@  7,5   SAY  title 

@  10,5  SAY  "Enter  language  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode, 1,1)  =  "  " 
USE 

*  If  the  user  has  already  made  deletions,  update  the  file 

*  TEMPOR,  record  the  changes  and  return  to  SUBMENU 1, 

*  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  FORLANGS  file  for  the  code.  If  the  record  does  not 

*  exist,  print  an  error  message  and  give  another  chance, 

*  otherwise  display  the  record  and  let  the  user  confirm 

*  the  deletion 

FIND  &mcode 
IF  #  =  0 

?  CHR(7) 

@  22,5  SAY  "The  record  does  not  exist,  try  again" 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

STORE  "   "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2,60  SAY  DATE( ) 

@  3,  5   SAY  title 
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@  5,5   SAY  "Record  to  be  deleted" 

@  7,5   SAY  "code  =  "+code 

@  8,5   SAY  "name  =  "+name 

?  CHR(7) 

@  15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?   (Y/N) 

STORE  "  "  TO  answer 

WAIT  TO  answer 

IF  answer  =  "y" 

DELETE 

PACK 

STORE  count+1  TO  count 
END  IF 
END  IF 

STORE  "   "  TO  mcode 
ENDDO  WHILE  continue 
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********  PROGRAM  DELETE6  ******** 

*  This  program  deletes  records  from  SCIENCES  file 

ERASE 

SELECT  PRIMARY 

USE  sciences  INDEX  sciences 

STORE  "*****  DELETING  RECORDS  FROM  SCIENCES  FILE  *****"  TO  title 

STORE  "   "  TO  mcode 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

@  5,60  SAY  DATEO 

@  7,5   SAY  title 

@  10,5  SAY  "Enter  science  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode, 1,1)  =  "  " 
USE 

*  If  the  user  has  already  made  deletions,  update  the  file 

*  TEMPOR,  record  the  changes  and  return  to  SUBMENU 1, 

*  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  SCIENCES  file  for  the  code.  If  the  record  does  not 

*  exist,  print  an  error  message  and  give  another  chance, 

*  otherwise  display  the  record  and  let  the  user  confirm 

*  the  deletion 

FIND  &mcode 
IF  #  =  0 

?  CHR(7) 

@  22,5  SAY  "The  record  does  not  exist,  try  again" 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

STORE  "   "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2,60  SAY  DATE( ) 

@  3,  5   SAY  title 
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@  5,5   SAY  "Record  to  be  deleted" 

@  7,5   SAY  "code  =  "+code 

@  8, 5   SAY  "name  =  "+name 

?  CHR(7) 

@   15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?   (Y/N) 

STORE  "  "  TO  answer 

WAIT  TO  answer 

IF  answer  =  "y" 

DELETE 

PACK 

STORE  count* 1  TO  count 
END  IF 
END  IF 

STORE  "   "  TO  mcode 
ENDDO  WHILE  continue 
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3 .   Modification  Programs 

These  programs  modify  records  in  the  files  of  the 
database.   Since  the  structure  of  all  the  programs  is  the 
same,  we  will  describe  only  the  program  M0DIFY1  which  makes 
changes  in  the  MASTER  file. 

The  structure  of  the  program  is  as  follows: 

a.  The  MASTER  file  is  opened. 

b.  An  appropriate  message  is  displayed  on  the 
screen,  prompting  the  user  to  enter  the  serial  number  of 
the  officer  whose  record  is  to  be  modified.   At  this  point 
he  may  exit  the  program  by  pressing  'ENTER',  either  after 

he  has  made  the  modifications  he  wants,  or  at  the  beginning, 
without  having  done  anything.   In  the  latter  case  the  pro- 
gram just  returns  to  SUBMENU1.   In  the  former  case  the  pro- 
gram updates  the  MONITOR  file  and  then  returns.   Before  the 
program  exits,  it  closes  the  MASTER  file. 

c.  The  MASTER  file  is  searched  for  the  serial 
number.   If  the  record  does  not  exist,  the  program  displays 
an  error  message,  and  loops  giving  another  chance. 

d.  If  the  record  exists,  then  the  field  values  are 
stored  to  temporary  memory  variables,  and  the  record  is 
displayed  on  the  screen. 

e.  Now  the  user  can  modify  any  field  he  wants,  by 
moving  the  cursor  and  overwriting  the  existing  values. 

f.  When  he  is  finished,  the  old  field  values  are 
replaced  by  the  modified  memory  variables,  and  the  record 
is  placed  back  in  the  file. 
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g.   The  whole  operation  continued  under  the  control 
of  a  WHILE  loop,  until  the  user  exits. 

The  listings  of  the  programs  are  given  in  the 
following  pages. 
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********  PROGRAM  MODIFY1  ******** 

, *  This  program  modifies  records  in  MASTER  file 

ERASE 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  "*****  MODIFYING  RECORDS  IN  MASTER  FILE  *****"  to  TITLE 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "     "  TO  mserno 

*  Get  the  serial  number 

@  5,60  SAY  DATEO 
@  7,5   SAY  title 

@  10,5  SAY  "Enter  serial  number"  GET  mserno  PICTURE  "9999" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mserno, 1, 1)  =  "  " 
USE 

*  Update  the  TEMPOR  file  and  record  the  changes 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

*  Look  up  MASTER  file  for  the  serial  number 

FIND  &mserno 
IF  #=0 

?  CHR(7) 

@  22, 10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

LOOP 
ENDIF 

*  Store  current  field  values  to  temporary  memory  variables 

STORE  name  TO  mname 
STORE  rank  TO  mrank 
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STORE  unit  TO  munit 
STORE  serentry  TO  mserentry 
STORE  reptdate  TO  mreptdate 
STORE  duty  TO  mduty 
STORE  educat  TO  meducat 
STORE  degree  TO  mdegree 
STORE  forlang  TO  mforlang 
STORE  marstat  TO  mmarstat 
STORE  children  TO  mchildren 
STORE  address  TO  maddress 
STORE  phone  TO  mphone 

Display  the  record  and  get  the  new  field  values 


ERASE 

@  1,60 

SAY  DATE() 

@  2,5 

SAY  title 

@  4,5 

SAY 

"Serial  number 

=  "+mserno 

@  6,5 

SAY 

'Serno 

'  GET 

mserno 

@  7,5 

SAY 

'Name 

'  GET 

mname 

@  8,5 

SAY 

'Rank 

'  GET 

mrank 

@  9,5 

SAY 

'Unit 

'  GET 

munit 

@  10,  5 

SAY 

'Serentry' 

'  GET 

mserentry 

@  11,5 

SAY 

'Reptdate' 

'  GET 

mreptdate 

@  12,5 

SAY 

"Duty 

'  GET 

mduty 

@  13,5 

SAY 

'Educat 

'  GET 

meducat 

@  14,  5 

SAY 

'Degree 

'  GET 

radegree 

@  15,5 

SAY 

'Forlang 

'  GET 

mforlang 

@  16,  5 

SAY 

'Marstat 

'  GET 

mmarstat 

@  17,5 

SAY 

'Children' 

'  GET 

mchildren 

@  18,  5 

SAY 

'Address 

'  GET 

maddress 

@  19,  5 

SAY 

'Phone 

'  GET 

mphone 

READ 

*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  serno  WITH  mserno 
REPLACE  name  WITH  mname 
REPLACE  rank  WITH  mrank 
REPLACE  unit  WITH  munit 
REPLACE  serentry  WITH  mserentry 
REPLACE  reptdate  WITH  mreptdate 
REPLACE  duty  WITH  mduty 
REPLACE  educat  WITH  meducat 
REPLACE  degree  WITH  mdegree 
REPLACE  forlang  WITH  mforlang 
REPLACE  marstat  WITH  mmarstat 
REPLACE  children  WITH  mchildren 
REPLACE  address  WITH  maddress 
REPLACE  phone  WITH  mphone 
STORE  count+1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  MODIFY2  ******** 

*  This  program  modifies  records  in  UNITS  file 

ERASE 

SELECT  PRIMARY 

USE  units  INDEX  units 

STORE  "*****  MODIFYING  RECORDS  IN  UNITS  FILE  *****"  TO  tittle 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "     "  TO  mcode 

*  Get  the  unit  code 

@  5,60  SAY  DATEO 

@  7,5  SAY  tittle 

@  10,5  SAY  "Enter  unit  code"  GET  mcode  PICTURE  "9999" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1,1)  =  "  " 
USE 

*  Update  file  TEMPOR  and  record  the  changes 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Look  up  UNITS  file  for  the  code 

FIND  &mcode 
IF  #=0 

?  CHR(7) 

@  22, 10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del  +  1  TO  del 

ENDDO  WHILE 

LOOP 
ENDIF 

*  Store  current  field  values  to  temporary  memory  variables 

STORE  title  TO  ratitle 
STORE  location  TO  mlocation 
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*   Display  the  record  and  get  the  new  field  values 


ERASE 
@  3,60 
@  5,5 
@  8,5 
@  10,  5 
@  11,  5 
@  12,5 
READ 


SAY  DATEO 
SAY  tittle 
SAY  "Unit  code  =  "+mcode 


SAY  "Code 
SAY  "Title 
SAY  "Location 


GET  mcode 
GET  mtitle 
GET  mlocation 


*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  title  WITH  mtitle 
REPLACE  location  WITH  mlocation 
STORE  count+1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  MODIFY3  ******** 

*  This  program  modifies  records  in  RANKS  file 

ERASE 

SELECT  PRIMARY 

USE  ranks  INDEX  ranks 

STORE   "*****  MODIFYING  RECORDS  IN  RANKS  FILE  *****"  to  TITLE 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "   "  TO  mcode 

*  Get  the  rank  code 

@  5,60  SAY  DATEO 

@  7,5  SAY  title 

@  10,5  SAY  "Enter  rank  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1,1)  =  "  " 
USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  RANKS  file  for  the  code 

FIND  &mcode 
IF  #=0 

?  CHR(7) 

@  22, 10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

LOOP 
ENDIF 

*  Store  current  field  values  to  temporary  memory  variables 

STORE  armyname  TO  marmyname 
STORE  navy name  TO  mnavyname 
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*   Display  the  record  and  get  the  new  values 


SAY  DATEO 

SAY  title 

SAY  "Rank  code  =  "+mcode 

SAY  "Code     "  GET  mcode 

SAY  "Armyname"  GET  marmyname 

SAY  "Navyname"  GET  mnavyname 


ERASE 

@ 

3,60 

@ 

5,5 

@ 

10,5 

@ 

12,5 

@ 

13,5 

@ 

14,5 

READ 


*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  armyname  WITH  marmyname 
REPLACE  navyname  WITH  mnavyname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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*******  PROGRAM  MODIFY4  ******** 

*  This  program  modifies  records  in  DUTIES  file 

ERASE 

SELECT  PRIMARY 

USE  duties  INDEX  duties 

STORE  "*****  MODIFYING  RECORDS  IN  DUTIES  FILE  *****"  TO  title 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "   "  TO  mcode 

*  Get  the  duty  code 

@  5,60  SAY  DATEO 

@  7,5  SAY  title 

@  10,5  SAY  "Enter  duty  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1,1)  =  "  " 
USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

*  Search  DUTIES  file  for  the  code 

FIND  &mcode 
IF  #=0 

?  CHR(7) 

@  22,  10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

LOOP 
ENDIF 

*  Store  current  field  values  to  temporary  memory  variables 
STORE  name  TO  mname 
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*  Display  the  record  and  get  the  new  field  values 

ERASE 

@  3,60  SAY  DATEO 

@  4,5  SAY  title 

@  7,  5  SAY  "Duty  code  =  "+mcode 

@  9,5  SAY  "code   "  GET  mcode 

@  10, 5  SAY  "name   "  GET  mname 

READ 

*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  MODIFY5  ******** 

*  This  program  modifies  records  in  FORLANGS  file 

ERASE 

SELECT  PRIMARY 

USE  forlangs  INDEX  forlangs 

STORE  "*****  MODIFYING  RECORDS  IN  FORLANGS  FILE  *****"  TO  title 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "   "  TO  mcode 

*  Get  the  foreign  language  code 

@  5,60  SAY  DATEO 

@  7,5  SAY  title 

@  10,5  SAY  "Enter  language  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1,1)  =  "  " 
USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  FORLANGS  file  for  the  code 

FIND  &mcode 
IF  #=0 

?  CHR(7) 

@  22,  10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

LOOP 
ENDIF 

*  Store  current  field  values  to  temporary  memory  variables 
STORE  name  TO  mname 
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*  Display  the  record  and  get  the  new  field  values 


ERASE 
@  3,60 
@  4,5 
@  7,5 
8  9,5 
@  10,5 
READ 


SAY  DATEO 

SAY  title 

SAY  "Code  number  =  "+mcode 

SAY  "code   "  GET  mcode 

SAY  "name    GET  raname 


*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count+1  TO  count 
ENDDO  WHILE  continue 
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********  PROGRAM  MODIFY6  ******** 

*  This  program  modifies  records  in  SCIENCES  file 

ERASE 

SELECT  PRIMARY 

USE  sciences  INDEX  sciences 

STORE  "*****  MODIFYING  RECORDS  IN  SCIENCES  FILE  *****  "  TO  title 

STORE  0  TO  count 

STORE  T  TO  continue 

DO  WHILE  continue 

ERASE 

STORE  "   "  TO  mcode 

*  Get  the  science  code 

@  5,60  SAY  DATEO 

@  7,5  SAY  title 

@  10,5  SAY  "Enter  code  number"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 
READ 

IF  $(mcode, 1,1)  =  "  " 
USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  SCIENCES  file  for  the  code 

FIND  &mcode 
IF  #=0 

?  CHR(7) 

@  22, 10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

LOOP 
END  IF 

*  Store  current  field  values  to  temporary  memory  variables 
STORE  name  TO  raname 
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*  Display  the  record  and  get  the  new  field  values 

ERASE 

@  3,60  SAY  DATEO 

@  4,5  SAY  title 

@  7,5  SAY  "Code  number  =  "+mcode 

@  9,5  SAY  "code   "  GET  mcode 

@  10, 5  SAY  "name   "  GET  mname 

READ 

*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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C.   REPORT  GENERATORS 

These  programs  permit  the  user  to  print  all  the  neces- 
sary reports  which  must  be  available  to  the  Commander,  in 
order  to  help  him  in  his  decision  making.   The  documentation, 
listing,  and  output  of  each  program  is  as  follows: 
1 .   Program  Reportl 

This  program  prints  all  the  officers  in  alphabetical 
order  including  name,  serial  number,  rank,  the  unit  he 
belongs,  and  the  report  date. 

The  program  uses  the  following  structure: 

a.  The  necessary  memory  variables  are  initialized 
and  the  heading  of  the  report  is  printed. 

b.  The  MASTER  file  is  opened,  and  is  sorted  on  the 
key  'name'  to  the  temporary  file  TEMP,  in  ascending  order. 

c.  The  program  uses  the  sorted  file  TEMP,  and  exe- 
cutes a  WHILE  loop  to  process  each  record  of  the  file. 
Within  the  WHILE  loop  the  program  performs  the  following: 

(1)  Stores  the  appropriate  field  values  to  the 
corresponding  memory  variables. 

(2)  Searches  RANKS  and  UNITS  files  and  retrieves 
the  appropriate  rank  name  and  the  title  of  the  unit. 

(3)  The  main  line  of  the  output  is  printed. 
This  line  includes  the  data  concerning  the  officer  whose 
record  is  being  processed.   A  line  counter  is  kept  to  control 
the  paging  of  the  output. 
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d.  The  program  continues  with  the  next  record 
until  the  end  of  file  (EOF)  is  encountered. 

e.  The  file  TEMP  is  deleted,  and  the  MONITOR  file 
is  updated. 

The  program  listing  and  output  is  shown  in  the  next 
pages . 


99 


********  PROGRAM  REPORT1  ******** 

*  This  program  prints  all  the  officers  in  alphabetical  order 

*  including  nname,  serial  number,  rank,  the  unit  he  belongs 

*  and  the  report  date 

ERASE 

*  Initialize  memory  variables 

STORE  "LIST  OF  OFFICERS  IN  ALPHABETICAL  ORDER"  TO  tittle 
STORE  "======================================"  TO  underline 

STORE  1  TO  seqnum 

STORE  0  TO  linecount 

STORE  "  "  TO  pname 

STORE  "     "  TO  pserno 

STORE  "       "  TO  preptdate 

STORE  "     "  TO  rankname 

STORE  "  "  TO  ptitle 

STORE  "   "  TO  mrank 

STORE  "     "  TO  munit 

SET  PRINT  ON 

*  Print   the   heading 
<P 

??    "  "+DATEO 

<? 

<?<?    "  " 

?  "  "+tittle 

?  "^underline 

<? 

<?  " " 

<p<?    ■■ •• 

?  " ! SEQ# !  NAME  !    SERLtf |    RANK    j       " 

??    "0*   N    I    T  !    REPTDATE    \ " 

<?  " " 

<p<?  •• " 

STORE  linecount+9  TO  linecount 
SELECT  PRIMARY 
USE  master 

*  Sort  MASTER  file  in  alphabetical  order  of  the  officers' 

*  names  into  the  temporary  file  TEMP,  and  use  this  file 

*  for  the  database  processing 

SORT  ON  name  TO  temp  ASCENDING 

USE  temp 

DO  WHILE  .NOT.  EOF 

STORE  name  TO  pname 

STORE  serno  TO  pserno 

STORE  reptdate  TO  preptdate 

STORE  rank  TO  mrank 

100 


STORE  unit  TO  munit 

*  Search  RANKS  file  with  key  the  field  'rank'  of  the 

*  officer's  records  and  get  the  appropriate  rank  name. 

SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &mrank 

IF  $(p.unit, 1, 1)  =  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
END  IF 

*  Find  the  unit  the  officer  belongs,  and  get  the  title 

*  of  the  unit 

USE  units  INDEX  units 

FIND  &munit 

STORE  title  TO  ptitle 

*  If  the  line  counter  exceeds  53,  continue  in  the  next  page. 

IF  linecount  >  53 

EJECT 

STORE  0  TO  linecount 
END  IF 

*  Print  the  data  concerning  the  officer 


?? 
<p 

?? 
?? 
?? 
?? 


" ! "+STR(seqnum, 3) 
" !  "+pname 
" |  "+pserno 
" J  "+rankname 
" !  "+ptitle 

"  !  "+$(preptdate,  1,  2)  +  "/"+$(preptdate,  3,  2)  +  "/*' ; 
+$(preptdate, 5, 2) +"  !" 
STORE  seqnum+1  TO  seqnum 
STORE  linecount+2  TO  linecount 


STORE  ' 

"  TO  pname 

STORE  ' 

"  TO  pserno 

STORE  ' 

TO  rankname 

STORE  ' 

"  TO  ptitle 

STORE  ' 

TO  preptdate 

STORE  ' 

"  TO  mrank 

STORE  ' 

"  TO  munit 

*   Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 
ENDDO  WHILE  .NOT.  EOF 


101 


*  Update  MONITOR  file,  delete  file  TEMP  and  return 

DO  monitr 

DELETE  FILE  temp. DBF 

RETURN 


102 


LIST  OF  OFFICERS  IN  ALPHABETICAL  ORDER 


12/01/85 


!SEQ# 

N  A 

M  E 

SERL# 

RANK 

U 

NIT 

REPTDATE  ! 

!   1 

Adams 

Garry 

J 

1030 

CPT 

2nd 

Inf  Bn 

09/20/84  ! 

!   2 

Alkamo 

Jim 

P 

1097 

LTJG 

LST 

Argo 

07/20/83  ! 

!   3 

Allen 

David 

E 

1029 

CPT 

2nd 

Inf  Bn 

09/16/83  ! 

!   4 

Boris 

Peter 

H 

1084 

LT 

DD  Miaoulis 

07/16/84  ! 

!   5 

Borrias 

Nick 

L 

1083 

LT 

LST 

Rhodes 

07/06/84  j 

!   6 

Brown 

Peter 

R 

1028 

CPT 

1st 

Inf  Bn 

09/16/83  ! 

!   7 

Bruce 

Mark 

P 

1027 

CPT 

1st 

Inf  Bn 

08/15/84  ! 

!   8 

Byron 

Larry 

M 

1026 

CPT 

1st 

Inf  Bn 

08/21/84  j 

!   9 

Clark 

Tom 

L 

1025 

MAJ 

Signals  Bn 

07/22/83  ! 

!  10 

Cook 

Ryan 

K 

1023 

MAJ 

Armour  Bn 

07/21/84  j 

!  11 

Crosby 

Jerry 

J 

1022 

MAJ 

1st 

Arty  Bn 

07/20/83  ! 

!  12 

Dalton 

John 

E 

1021 

MAJ 

4th 

Inf  Bn 

07/20/83  ! 

!  13 

Denton 

Mark 

S 

1096 

LTJG 

LST 

Argo 

07/19/84  j 

!  14 

Dorey 

Jim 

H 

1019 

MAJ 

2nd 

Inf  Bn 

07/20/84  ! 

!  15 

Durran 

Frank 

M 

1020 

MAJ 

3rd 

Inf  Bn 

07/20/84  j 

!  16 

Emery 

Roy 

J 

1018 

MAJ 

1st 

Inf  Bn 

07/18/83  ! 

!  17 

Evans 

Isaac 

M 

1065 

1LT 

2nd 

Arty  Bn 

07/16/83  ! 

!  18 

Evans 

Tom 

M 

1064 

1LT 

1st 

Arty  Bn 

07/15/83  ! 

!  19 

Farmer 

Peter 

J 

1063 

1LT 

5th 

Inf  Bn 

07/13/84  ! 

!  20 

Faser 

Gas 

L 

1062 

1LT 

4th 

Inf  Bn 

07/12/83  ! 

!  21 

Felton 

John 

K 

1061 

1LT 

3rd 

Inf  Bn 

07/10/84  ! 

!  22 

Foley 

Mark 

L 

1060 

1LT 

2nd 

Inf  Bn 

07/13/83  j 
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23 
24 
25 
26 

27 
28 
29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 


Ford 

Foster 

Fox 

Frank 

Franko 

Freeman 

Ganos 

Garret 

Gil man 

Good 

Gorby 

Gordon 

Gorman 

Hog  an 

Horan 

Ingals 

Jackson 

Jensen 

Jones 

Kaan 

Kamenos 

Kane 

Karras 

Keen 

King 

Kirk 

Kliff 


Roger  A 
Kliff  J 
Don 


Paul 

Jess 

Jim 

Jim 

Rex 


E 
K 
L 
E 
A 
D 


Perry  M 

John  L 

Glen  G 

Jerry  W 

Bruce  L 

Joe  K 

Kevin  L 

Tomas  R 

Peter  M 

Ron  P 
Peter 
Dave 


Joe 
Bob 
Mike 
Robt 
Lewis  M 
Burt  N 
Frank   E 


1057 
1058 
1099 
1059 
1098 
1056 
1085 
1055 
1054 
1053 
1051 
1052 
1095 
1032 
1031 
1035 
1033 
1034 
1100 
1001 
1089 
1002 
1005 
1003 
1007 
1006 
1024 

104 


CPT 

CPT 

LTJG 

1LT 

LTJG 

CPT 

LT 

CPT 

CPT 

CPT 

CPT 

CPT 

LTJG 

CPT 

CPT 

CPT 

CPT 

CPT 

LTJG 

MG 

LT 

BG 

LTC 

COL 

LTC 

LTC 

MAJ 


Sup/Trans  Bn 
Sup/Trans  Bn 
LST  Rhodes 
1st  Inf  Bn 
LST  Rhodes 
Sup/Trans  Bn 
DD  Miaoulis 
Signals  Bn 
Signals  Bn 
Signals  Bn 
Engineers  Bn 
Engineers  Bn 
LST  Argo 
3rd  Inf  Bn 
2nd  Inf  Bn 
4th  Inf  Bn 
3rd  Inf  Bn 
3rd  Inf  Bn 
LST  Rhodes 
1st  Inf  Div 
DD  kanaris 
1st  Inf  Div 
1st  Inf  Div 
1st  Inf  Div 
1st  Inf  Bn 
1st  Inf  Div 
Engineers  Bn 


07/28/84 
07/29/83 
07/22/84 
07/30/84 
07/21/83 
07/27/83 
07/10/84 
07/26/83 
07/25/84 
07/24/84 
07/22/84 
07/23/83 
07/19/83 
07/18/83 
09/20/84 
08/15/84 
07/20/84 
07/20/84 
07/23/83 
07/20/84 
07/14/83 
07/25/84 
07/25/84 
08/26/33 
07/20/84 
08/22/83 
07/21/84 


!  50  ! 

51 

52 

53 

|  54 

'  55 

'  56 

57 

'  58 

59 

60 

61 

62 

63 

64 

65  1 

66 

'  67  ] 

'  68 

'  69 

70 

71 

:  72 

!  73 

!  74 

!  75 

!  76 

Kontos 

Koom 

Kueny 

Larsen 

Larson 

Lay ton 

Lemos 

Lopez 

Manos 

Moore 

Morris 

Morton 

Newman 

Newton 

Norton 

Ocasio 

Odello 

01  sen 

Onasis 

Oscar 

Owens 

Palmer 

Pappas 

Patton 

Perry 

Peters 

Peters 


David  K 
Peter  H 
John  S 
Allen  A 
Roger  K 
John  E 
Tim  N 
Tom  L 
John  K 
Roger  L 
Roy  K 
Brian 
Ben 
John 
Denis 
Jim 
Bruno  A 
Joe  N 
George  E 
Tom  K 
Bill 
Bob 
Nick 
Mike 
Bill 
Mark 
Nick 


C 
K 
J 
E 
E 


1088 
1004 
1008 
1050 
1049 
1048 
1090 
1047 
1043 
1044 
1046 
1045 
1066 
1067 
1068 
1071 
1072 
1070 
1091 
1094 
1069 
1011 
1092 
1012 
1013 
1009 
1010 


LT 

LTC 

LTC 

CPT 

CPT 

CPT 

LT 

CPT 

CPT 

CPT 

CPT 

CPT 

1LT 

1LT 

1LT 

COMD 

CAPT 

LTC 

LTJG 

LTJG 

1LT 

LTC 

LTJG 

LTC 

LTC 

LTC 

LTC 


DD  kanaris 
1st  Inf  Div 
2nd  Inf  Bn 
Engineers  Bn 
Armour  Bn 
Armour  Bn 
DD  kanaris 
Armour  Bn 
1st  Arty  Bn 
2nd  Arty  Bn 
2nd  Arty  Bn 
2nd  Arty  Bn 
Armour  Bn 
Engineers  Bn 
Signals  Bn 
Navy  Command 
DD  Squadron 
1st  Inf  Div 
DD  kanaris 
DD  Themis 
Sup/Trans  Bn 
5th  Inf  Bn 
DD  Themis 
1st  Arty  Bn 
2nd  Arty  Bn 
3rd  Inf  Bn 
4th  Inf  Bn 


07/13/83 
08/24/84 
07/20/84 
07/21/83 
07/20/84 
07/19/83 
07/14/82 
07/13/84 
07/07/84 
07/06/83 
07/13/83 
07/11/84 
07/17/84 
07/18/83 
07/10/84 
07/10/84 
07/20/84 
07/12/82 
07/15/82 
07/18/83 
07/11/83 
07/21/83 
07/16/82 
07/22/83 
07/20/84 
07/18/83 
07/19/84 
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77 

Potter 

Tom 

E 

1073 

CAPT 

LST  Squadron 

07/19/84 

78 

Quill 

Kelvin 

J 

1075 

CDR 

DD  kanaris 

07/19/83 

79 

Quinn 

Peter 

C 

1074 

CDR 

DD  Miaoulis 

07/12/83 

80 

Rigas 

Ben 

H 

1093 

LTJG 

DD  Themis 

07/17/83 

81 

Rivera 

Mario 

L 

1079 

LCDR 

DD  Miaoulis 

07/17/84 

82 

Roberts 

Ben 

J 

1077 

CDR 

LST  Argo 

07/19/83 

83 

Rodes 

James 

K 

1078 

CDR 

LST  Rhodes 

07/22/84 

84 

Rokos 

Nick 

A 

1076 

CDR 

DD  Themis 

07/18/84 

85 

Ross 

Allan 

J 

1080 

LCDR 

DD  kanaris 

07/25/84 

86 

Sanders 

James 

F 

1014 

LTC 

Armour  Bn 

07/20/84 

87 

Scott 

Paul 

V 

1015 

LTC 

Engineers  Bn 

08/15/83 

88 

Spencer 

Tim 

M 

1081 

LCDR 

DD  Themis 

07/08/84 

89 

Stanley 

Cris 

K 

1082 

LCDR 

LST  Argo 

07/09/83 

90 

Takas 

Costas 

L 

1086 

LT 

DD  Miaoulis 

07/11/84 

91 

Torres 

Alex 

A 

1017 

LTC 

Sup/Trans  Bn 

07/10/84 

92 

Turner 

Carlos 

B 

1016 

LTC 

Signals  Bn 

08/15/83 

93 

Ullman 

Rolf 

G 

1041 

CPT 

1st  Arty  Bn 

07/03/83 

94 

Ulrey 

Dan 

A 

1042 

CPT 

1st  Arty  Bn 

07/06/84 

95 

Victor 

David 

R 

1039 

CPT 

5th  Inf  Bn 

07/20/83 

96 

Vongel 

Mark 

E 

1040 

CPT 

5th  Inf  Bn 

07/15/83 

97 

Warren 

Geo 

M 

1036 

CPT 

4th  Inf  Bn 

08/15/84 

98 

Waters 

Gary 

L 

1038 

CPT 

5th  Inf  Bn 

07/15/34 

99 

Watson 

Ralph 

D 

1037 

CPT 

4th  Inf  Bn 

07/20/83 

100 

Z  ikas 

Tom 

J 

1087 

LT 

DD  Miaoulis 

07/12/84 
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2 .   Program  Report2 

This  program  prints  all  the  officers  ordered  by  rank, 
and  within  the  rank  by  unit,  including  name,  unit,  and  duty. 
The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  main  heading  of  the  list  is  printed. 

b.  We  create  a  copy  of  the  MASTER  file  into  file 
TEMP,  which  includes  only  the  fields  necessary  to  obtain  the 
output. 

c.  Since  dBASE  II  cannot  sort  a  file  on  more  than 
one  key  at  the  same  time,  we  do  two  consecutive  sorts.   The 
first  one  is  done  on  the  minor  key  'unit',  and  the  second  one 
on  the  major  key  'rank*.   For  the  purpose  of  these  sorts  we 
use  the  temporary  files  TEMPI  and  TEMP2  besides  TEMP. 

d.  Using  the  file  TEMP2  which  is  double  sorted  on 
the  desired  keys,  the  program  performs  a  WHILE  loop  to  process 
this  file,  with  the  following  major  functions: 

(1)   The  field  "rank"  and  the  first  character 
of  the  unit  code  are  compared  to  the  memory  variables  'mrank' 
and  'funit'  respectively.   If  either  comparison  yields  a 
'false'  value  this  means  that  an  officer  of  the  different 
rank  or  different  service  has  been  encountered.   The  value 
of  the  field  'rank',  and  the  first  character  of  the  unit 
code,  are  stored  to  the  above  memory  variables,  in  order  to 
be  ready  for  the  next  comparison.   Then  the  heading  of  the 
new  rank  is  printed. 
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(2)  The  current  field  values  are  stored  to  the 
corresponding  memory  variables. 

(3)  The  appropriate  unit  title,  and  duty  name 
are  retrieved  from  the  files  UNITS  and  DUTIES  respectively. 

(4)  The  main  line  of  the  output  is  printed,  and 
the  program  proceeds  to  the  next  record. 

e.  The  MONITOR  file  is  updated,  all  the  temporary 
files  are  deleted,  and  then  the  program  returns  to  SUBMENU2. 

The  listing  and  output  of  the  program  are  shown  in 
the  next  pages. 
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********  PROGRAM  REPORT2  ******** 

*  This  program  prints  all  the  officers  ordered  by  rank 

*  and  unit  number  including  name,  unit  and  duty. 

ERASE 

*  Initialize  memory  variables 

STORE  0  TO  linecount 

STORE  "  "  TO  pname 

STORE  "  "  TO  fun it 

STORE  "   "  TO  mrank 

STORE  "     "  TO  munit 

STORE  "  "  TO  punit 

STORE  "   "  TO  mduty 

STORE  "  "  TO  pduty 

STORE  T  TO  maintitle 

STORE  '•==""==:===="======:========—======:===="  TO  linel 

STORE  "======================"  TO  line2 

STORE  "****************************************"  TO  line3 

STORE  "**********************"  TO  line4 

*  Print  the  heading 

SET  PRINT  ON 

??  "      "+DATEO 

<? 

<?«?  ■•     •• 

?  "  LIST  OF  OFFICERS  ORDERED  BY  RANK" 

<p 

?  Iine3+line4 

?  "*SEQ#!      NAME       J     UNIT    j 

??  "DUTY       *" 

?  Iine3+line4 

STORE  linecount+8  TO  linecount 

*  Create  a  copy  of  the  MASTER  file  into  TEMP  including  only 

*  the  appropriate  fields  and  sort  TEMP  file  on  the  minor  key 

*  'unit'  first  into  TEMPI  and  then  use  TEMPI  to  sort  the  file 

*  on  the  major  key  'rank'  into  TEMP2 

SELECT  PRIMARY 

USE  master 

COPY  TO  temp  FIELD  serno, name, rank, unit, duty 

USE  temp 

SORT  ON  unit  TO  tempi 

USE  tempi 

SORT  ON  rank  TO  temp2 

USE  temp2 

DO  WHILE  .NOT.  EOF 
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*  If  a  new  rank  or  an  officer  of  a  different  service 

*  is  encountered  print  the  rank  heading 

IF  rank  <>  mrank  .OR.  $(unit, 1,1)  <>  funit 
STORE  rank  TO  mrank 
STORE  $(unit,l,l)  TO  funit 
STORE  1  TO  seqno 
STORE  T  TO  flag 

<? 

STORE  linecount+2  TO  linecount 
IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 
DO  CASE 

CASE  rank  =  "01" 

IF  $(unit, 1, 1)  =  "1" 
?  Iinel+line2 

?"  GENERALS 

?    Iinel+line2 
ELSE 

?  Iinel+line2 

?"  ADMIRALS 

?  Iinel+line2 
ENDIF 
CASE  rank  =  "02" 

IF  $(unit, 1,1)=  "1" 
?  Iinel+line2 

?"  LT        GENERALS" 

?    Iinel+line2 
ELSE 

?  Iinel+line2 

?    "  VICE        ADMIRALS' 

?    Iinel+line2 
ENDIF 
CASE   rank   =    "03" 

IF   $(unit, 1, 1)    =    "1" 
?    Iinel+line2 

?"  MAJ        GENERALS" 

?    Iinel+line2 
ELSE 

?  Iinel+line2 

?    "  REAR        ADMIRALS' 

?    Iinel+line2 
ENDIF 
CASE    rank   =    "04" 

IF  $(unit, 1,1)=   "1" 
?  Iinel+line2 

?"  BRIG        GENERAL    S' 

?    Iinel+line2 
ELSE 

?    Iinel+line2 

?    "  COMMODORES" 
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?  Iinel+line2 
END  IF 
CASE  rank  =  "05" 

IF  $(unit, 1,  1)  =  "1" 

?    Iinel+line2 

?    "  COLONELS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  CAPTAINS" 

?  Iinel+line2 
ENDIF 
CASE  rank  =  "06" 

IF  $(unit, 1,  1)  =  "1" 

?    Iinel+line2 

?"  LT        COLONELS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?  "  COMMANDERS" 

?  Iinel+line2 
ENDIF 
CASE  rank  =  "07" 

IF  $(unit, 1,  1)  =    "1" 

?    Iinel+line2 

?    "  MAJORS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  LT    COMMANDERS" 

?  Iinel+line2 
ENDIF 
CASE  rank  =  "08" 

IF  $(unit, 1,1)=  "1" 

?    Iinel+line2 

?    "  CAPTAINS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  LIEUTENANTS" 

?  Iinel+line2 
ENDIF 
CASE  rank  =  "09" 

?  Iinel+line2 

?  "  1st   L  I  E  U  T  E  N  A  N  T  S" 

?  Iinel+line2 
CASE  rank  =  "10" 

IF  $(unit, 1, 1)  =  "1" 

?    Iinel+line2 

?    "  2nd      LIEUTENANTS" 

?    Iinel+line2 
ELSE 

?    Iinel+line2 

?    "  ENSIGNS" 
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?  Iinel+line2 
ENDIF 
OTHERWISE 
ERASE 

STORE  F  TO  flag 
?  CHR(7) 

@  10,10  SAY  "ILLEGAL  RANK  CODE  ENCOUNTERED  IN  RECORD" 
@  12,10  SAY  "       WITH  SERIAL  NUMBER  "+serno 
STORE  1  TO  del 
DO  WHILE  del  <  50 

STORE  del+1  To  del 
ENDDO  WHILE 
ENDCASE 
IF  flag 

STORE  linecount+3  TO  linecount 
ENDIF 
ENDIF 

*  Store  field  values  to  temporary  memory  variables 

STORE  name  TO  pname 
STORE  unit  TO  munit 
STORE  duty  TO  mduty 
SELECT  SECONDARY 
USE  units  INDEX  units 

*  Find  and  retrieve  the  unit  title  from  UNITS  file 

FIND  &munit 
IF  #  <>  0 

STORE  title  TO  punit 
ELSE 

ERASE 

?  CHR(7) 

@  9,9  SAY  "Record  with  key  "+munit+"  in  UNITS  file  not  found" 

STORE  1  TO  del 

DO  WHILE  del  <  50 

STORE  del+1  TO  del 

ENDDO  WHILE 
ENDIF 

*  Find  and  retrieve  the  duty  name  from  DUTIES  file 

USE  duties  INDEX  duties 
FIND  &mduty 
IF  #  <>  0 

STORE  name  TO  pduty 
ELSE 

ERASE 

?  CHR(7) 

@  9,9  SAY  "Record  with  key  "+mduty+"  in  DUTIES  file  not  found" 

STORE  1  TO  del 

DO  WHILE  del  <  50 

STORE  del+1  TO  del 
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?? 
?? 


ENDDO  WHILE 
END  IF 

*  Print  the  main  line 

IF  linecount  >  53 

EJECT 

STORE  0  TO  linecount 
END  IF 

O  "II  I  I 

II  I  I 

epep      ••  I   .. 

•   •  i 

?  " i "+STR(seqno, 3) 

"+pname 

"+punit 

"+pduty+" ! " 
STORE  linecount+2  TO  linecount 
STORE  seqno+1  TO  seqno 

*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 
ENDDO  WHILE  .NOT.  EOF 

*  Update  the  MONITOR  file  and  delete  the  temporary  files 

DO  monitr 

DELETE  FILE  temp. DBF 

DELETE  FILE  tempi. DBF 

DELETE  FILE  temp2.DBF 

RETURN 
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12/01/85 


LIST  OF  OFFICERS  ORDERED   BY  RANK 


*SEQ#|  NAME  !  UNIT         |  DUTY  * 


M  A  J 


GENERALS 


Kaan 


Dave        J    !     1st    Inf   Div      |    Commander 


1     !    Kane 


BRIG        GENERALS 


Bob 


R 


1st  Inf  Div   J  Dty  Commander 


COMMODORES 


Navy  Command  |  Commander 


COLONELS 


Keen 


Robt 


N 


1st    Inf   Div 


Chief   of   Staff 


CAPTAINS 


Odello   Bruno   A 
Potter   Tom    E 


DD  Squadron 
LST  Squadron 


Commander 
Commander 


L  T 


COLONELS 


Koom     Peter   H 
Karras   Mike    L 


1st  Inf  Div 
1st  Inf  Div 
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1st  Office  Manager 
2nd  Office  Manag'er 


3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 


Kirk 

Burt 

N 

Olsen 

Joe 

N 

King 

Lewis 

M 

Kueny 

John 

S 

Peters 

Mark 

J 

Peters 

Nick 

K 

Palmer 

Bob 

L 

Pattern 

Mike 

H 

Perry- 

Bill 

H 

Sanders 

James 

F 

Scott 

Paul 

V 

Turner 

Carlos 

B 

Torres 

Alex 

A 

1st  Inf  Div 
1st  Inf  Div 
1st  Inf  Bn 
2nd  Inf  Bn 
3rd  Inf  Bn 
4th  Inf  Bn 
5th  Inf  Bn 
1st  Arty  Bn 
2nd  Arty  Bn 
Armour  Bn 
Engineers  Bn 
Signals  Bn 
'  Sup/Trans  Bn 


3rd  Office  Manager 

4th  Office  Manager 

Commander 

Commander 

Commander 

Commander 

Commander 

Commander 

Commander 

Commander 

Commander 

Commander 

Commander 


COMMANDERS 


1  ,'  Quinn  Peter   C 

2  !  Quill  Kelvin  J 

3  !  Rokos  Nick   A 

4  J  Roberts  Ben    J 

5  |  Rodes  James   K 


DD  Miaou lis 
DD  kanaris 
DD  Themis 
LST  Argo 
LST  Rhodes 


Commanding  Officer 
Commanding  Officer 
Commanding  Officer 
Commanding  Officer 
Commanding  Officer 


MAJORS 


1  !  Emery  Roy  J 

2  !  Dorey  Jim  H 

3  !  Durran  Frank  M 

4  J  Dal ton  John  E 


1st  Inf  Bn 
2nd  Inf  Bn 
3rd  Inf  Bn 
4th  Inf  Bn 
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Dty  Commander 
Dty  Commander 
Dty  Commander 
Dty  Commander 


!   5 

Crosby 

Jerry 

J 

1st  Arty  Bn 

Dty  Commander        ! 

!   6 

Cook 

Ryan 

K 

Armour  Bn 

Dty  Commander        ,' 

!   7 

Kliff 

Frank 

E 

Engineers  Bn 

Dty  Commander       J 

!   8 

Clark 

Tom 

L 

Signals  Bn 

Dty  Commander        J 

L  T 

C 

OMMANDERS 

i   1 

Rivera 

Mario 

L 

DD  Miaoulis 

Executive  Officer    J 

!   2 

Ross 

Allan 

J 

DD  kanaris 

Executive  Officer    | 

!   3 

Spencer 

Tim 

M 

DD  Themis 

Executive  Officer    ,' 

!   4 

Stanley 

Cris 

K 

LST  Argo 

Executive  Officer    j 

C 

A  P  T  A  I  N  S 

!   1 

Byron 

Larry 

M 

1st  Inf  Bn 

Company  Commander    ,' 

!   2 

Bruce 

Mark 

P 

1st  Inf  Bn 

Company  Commander    J 

!   3 

Brown 

Peter 

R 

1st  Inf  Bn 

Company  Commander    J 

!   4 

Allen 

David 

E 

2nd  Inf  Bn 

Company  Commander    | 

!   5 

Adams 

Garry 

J 

2nd  Inf  Bn 

Company  Commander    ! 

:     6 

Horan 

Kevin 

L 

2nd  Inf  Bn 

Company  Commander    J 

!   7 

Hog  an 

Joe 

K 

3rd  Inf  Bn 

Company  Commander    j 

!   8 

Jackson 

Peter 

M 

3rd  Inf  Bn 

Company  Commander    j 

!   9 

Jensen 

Ron 

P 

3rd  Inf  Bn 

Company  Commander    J 

!  io 

Ingals 

Tomas 

R 

4th  Inf  Bn 

Company  Commander    ! 

!  11 

Warren 

Geo 

M 

4th  Inf  Bn 

Company  Commander    | 

!  12 

Watson 

Ralph 

D 

4th  Inf  Bn 

Company  Commander    j 

!  13 

Waters 

Gary 

L 

5th  Inf  Bn 

Company  Commander    ! 

!  14 

Victor 

David 

R 

5th  Inf  Bn 
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Company  Commander    ! 

!  15 

!  16 

17 

18 

19 

20 

21 

22 

!  23  j 

'  24  1 

'  25 

!  26 

!  27  j 

28 

29 

!  30 

1  31 

!  32 

!  33  J 

Vongel 

U 11 man 

Ulrey 

Manos 

Moore 

Morton 

Morris 

Lopez 

Layton 

Larson 

Larsen 

Gorby 

Gordon 

Good 

Gilman 

Garret 

Freeman 

Ford 

Foster 


Mark  E 

Rolf  G 

Dan  A 

John  K 

Roger  L 

Brian  C 

Roy  K 

Tom  L 

John  E 

Roger  K 

Allen  A 

Glen  G 

Jerry  W 

John  L 

Perry  M 

Rex  D 

Jim  E 

Roger  A 

Kliff  J 


5th  Inf  Bn 
1st  Arty  Bn 
1st  Arty  Bn 
1st  Arty  Bn 
2nd  Arty  Bn 
2nd  Arty  Bn 
2nd  Arty  Bn 
Armour  Bn 
Armour  Bn 
Armour  Bn 
Engineers  Bn 
Engineers  Bn 
Engineers  Bn 
Signals  Bn 
Signals  Bn 
Signals  Bn 
Sup/Trans  Bn 
Sup/Trans  Bn 
Sup/Trans  Bn 


Company 
Battery 
Battery 
Battery 
Battery 
Battery 
Battery 
Company 
Company 
Company 
Company 
Company 
Company 
Company 
Company 
Company 
Company 
Company 
Company 


Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 
Commander 


LIEUTENANTS 


Boris  Peter   H 

Ganos  Jim     A 

Takas  Costas  L 

Zikas  Tom    J 

Kontos  David   K 


DD  Miaoulis 
DD  Miaoulis 
DD  Miaoulis 
DD  Miaoulis 
DD  kanaris 


ASW  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 
ASW  Officer 
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Kamenos  Joe  M 
Lemos  Tim  N 
Borrias  Nick   L 


DD  kanaris 
DD  kanaris 
LST  Rhodes 


Navigation  Officer 
Commun/tion  Officer 
Executive  Officer 


1st   LIEUTENANTS 


1 

Frank 

Paul 

K 

2 

Foley 

Mark 

L 

3 

Felton 

John 

K 

4 

Faser 

Gas 

L 

5 

Farmer 

Peter 

J 

6 

Evans 

Tom 

M 

7 

Evans 

Isaac 

M 

8 

Newman 

Ben 

K 

9 

Newton 

John 

J 

10 

Norton 

Denis 

E 

11 

Owens 

Bill 

L 

1st  Inf  Bn 
2nd  Inf  Bn 
3rd  Inf  Bn 
4th  Inf  Bn 
5th  Inf  Bn 
1st  Arty  Bn 
2nd  Arty  Bn 
Armour  Bn 
Engineers  Bn 
Signals  Bn 
Sup/Trans  Bn 


Adjutant 
Adjutant 
Adjutant 
Adjutant 
Adjutant 
Adjutant 
Adjutant 
Adjutant 
Adjutant 
Adjutant 
Adjutant 


1st   LIEUTENANTS 


1 
2 
3 
4 
5 
6 
7 


Onasis  George  E 

Pappas  Nick  C 

Rigas  Ben  H 

Oscar  Tom  K 

Gorman  Bruce  L 

Denton  Mark  S 

Alkamo  Jim  P 

Franko  Jess  L 


DD  kanaris 
DD  Themis 
DD  Themis 
DD  Themis 
LST  Argo 
LST  Argo 
LST  Argo 
LST  Rhodes 
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CIC  Officer 
ASW  Officer 
Commun/tion  Officer 
CIC  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 
Navigation  Officer 


9  !  Fox     Don    E 
10  !  Jones    Peter  L 


LST  Rhodes 
LST  Rhodes 


Commun/tion  Officer 
CIC  Officer 
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3 .   Program  Report3 

This  program  prints  all  the  units  and  the  officers 
who  belong  to  a  particular  unit,  including  name,  rank,  and 
duty. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  headlines  are  printed. 

b.  A  copy  of  the  MASTER  file  is  created  which  in- 
cludes the  fields,  serial  number,  name,  rank,  unit,  and  duty. 
This  file  then  is  sorted  by  unit,  and  within  the  unit  by  rank. 

c.  The  above  finally  sorted  file,  is  processed 
sequentially  within  a  WHILE  loop,  whose  function  is  the 
following: 

(1)  The  field  'unit'  is  compared  to  the  field 
'unit'  of  the  previous  record.   If  they  are  not  equal,  this 
means  that  a  new  unit  has  been  encountered.   Then  the  program 
prints  the  title  and  location  of  the  unit. 

(2)  The  rank  and  duty  names  are  retrieved  from 
the  corresponding  files,  and  the  main  line  of  the  output 

is  printed. 

(3)  The  program  proceeds  with  the  next  record. 

d.  Before  the  program  returns,  it  updates  the  MONITOR 
file,  and  deletes  the  temporary  files. 

The  listings  and  the  output  of  the  program  are  shown 
in  the  next  pages. 
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********  PROGRAM  REPORT3  ******** 

*  This  program  prints  all  the  units  with  their 

*  officers,  including  name,  rank,  and  duty 

ERASE 

*  Initialize  memory  variables 

STORE  0  TO  linecount 

STORE  "  "  TO  pname 

STORE  "   "  TO  mrank 

STORE  "     "  TO  prank 

STORE  "   "  TO  mduty 

STORE  "  "  TO  pduty 

STORE  "     "  TO  munit 

STORE  "  "  TO  punit 

STORE  "  "  TO  plocat 

STORE  1  TO  seqnum 

STORE  "*********************************"  TO  linel 

STORE  "************************"  TO  line2 

STORE  "=================:======================= "  TO  line3 

*  Print  the  heading 

SET   PRINT  ON 

? 

??  DATEO 

? 

<?<?    •■ •• 

?  "  LIST  OF  UNITS  WITH  THEIR  OFFICERS 


?  "  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =:=:  =  =  =  =:  =  =  =  : 

<? 

?  Iinel+line2 

?  "*SEQ#!  NAME  j    RANK    j " 

??    "  DUTY  *" 

?  Iinel+line2 

STORE  linecount+8  TO  linecount 

*  Create  a  copy  of  the  MASTER  file  into  TEMP  including 

*  only  the  necessary  fields  and  sort  TEMP  file  on 

*  ascending  keys  'unit'  and  'rank' 

SELECT  PRIMARY 

USE  master 

COPY  TO  temp  FIELD  serno, name, rank, unit,  duty 

USE  temp 

SORT  ON  rank  TO  tempi 

USE  tempi 

SORT  ON  unit  TO  temp2 

USE  temp2 

DO  WHILE  .NOT.  EOF 
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*  If  the  current  unit  is  different  than  the  previous 

*  one  print  the  unit  heading 

IF  unit  <>  munit 

STORE  unit  TO  munit 
STORE  1  TO  seqnum 
IF  linecount  >  53 
EJECT 
STORE  0  TO  linecount 

END  IF 

<>> 

<p 

STORE  linecount+2  TO  linecount 

IF  linecount  >  53 
EJECT 
STORE  0  TO  linecount 

END  IF 

SELECT  SECONDARY 

USE  units  INDEX  units 

FIND  &munit 

?  "        "+line3 

?  "        UNIT:  "+title+"   LOCATION:  '"♦location 

?  "       "+line3 

STORE  linecount+3  TO  linecount 
END  IF 
SELECT  PRIMARY 

*  Store  current  field  values  to  memory  variables 

STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  duty  TO  mduty 

*  Retrieve  rank  and  duty  names 

SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &mrank 

IF  $(p.unit, 1, 1)  =  "1" 

STORE  armyname  TO  prank 
ELSE 

STORE  navy name  TO  prank 
END  IF 

USE  duties  INDEX  duties 
FIND  &mduty 
STORE  name  TO  pduty 

*  Print  the  main  line 

IF  linecount  >  53 

EJECT 

STORE  0  TO  linecount 
ENDIF 

II  II 
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•  •  I 

?  " ! "+STR(seqnum,  3) 

??  " !  " +pname 

??  "  ,'  "+prank 

??  " i  "+pduty+"   | " 

STORE  linecount+2  TO  linecount 

STORE  seqnum+1  TO  seqnum 

*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 
ENDDO  WHILE  .NOT.  EOF 

*  Update  the  MONITOR  file  and  delete 

*  the  temporary  files 

DO  monitr 

DELETE  FILE  temp. DBF 

DELETE  FILE  tempi. DBF 

DELETE  FILE  temp2.DBF 

RETURN 
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12/01/85 


LIST  OF  UNITS  WITH  THEIR  OFFICERS 


*SEQ#!  NAME  !    RANK    !  DUTY  * 


UNIT: 

1st  Inf 

Div 

LOCATION:  Salinas 

1 

!  Kaan 

Dave 

J 

MG 

Commander              | 

2 

!  Kane 

Bob 

R 

BG 

Dty  Commander          ] 

3 

!  Keen 

Robt 

N 

COL 

Chief  of  Staff 

4 

I  Koora 

Peter 

H 

LTC 

1st  Office  Manager 

5 

I  Karras 

;   Mike 

L 

LTC 

2nd  Office  Manager     , 

6 

Kirk 

Burt 

N 

LTC 

3rd  Office  Manager 

7 

!  01 sen 

Joe 

N 

LTC 

4th  Office  Manager 

UNIT: 

1st  Inf 

Bn 

locat: 

[ON:  Monterey 

1 

King 

Lewis 

M 

LTC 

Commander              ! 

2 

'  Emery 

Roy 

J 

MAJ 

Dty  Commander          ,' 

3 

1  Byron 

Larry 

M 

CPT 

Company  Commander      | 

4 

1  Bruce 

Mark 

P 

CPT 

Company  Commander      ] 

5 

1  Brown 

Peter 

R 

CPT 

Company  Commander      ] 

6 

Frank 

Paul 

K 

1LT 

Adjutant               J 

UNIT: 

2nd  Inf 

Bn 

LOCAT 1 

ON:  Carmel 

1 

Kueny 

John 

S   ! 

LTC   1 

Commander              J 

2 

Dorey 

Jim 

H   j 

MAJ   j 

Dty  Commander          J 
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3 
4 
5 
6 


Allen 

David 

E 

CPT 

Company  Commander 

Adams 

Garry 

J 

CPT 

Company  Commander 

Horan 

Kevin 

L 

CPT 

Company  Commander 

Foley 

Mark 

L 

1LT 

Adjutant 

1 

2 
3 
4 


UNIT:  3rd  Inf 

Bn 

LOCATION:  Salinas 

1 

Peters 

Mark 

J 

LTC 

Commander             J 

2 

Durran 

Frank 

M 

MAJ 

Dty  Commander          ! 

3 

Hog  an 

Joe 

K 

CPT 

Company  Commander      | 

4 

Jackson 

Peter 

M 

CPT 

Company  Commander      J 

5 

Jensen 

Ron 

P 

CPT 

Company  Commander      ,' 

6 

Felton 

John 

K 

1LT 

Adjutant              J 

UNIT:  4th  Inf 

Bn 

locat; 

!0N:  Seaside 

1 

Peters 

Nick 

K 

LTC 

Commander             J 

2 

Dalton 

John 

E 

MAJ 

Dty  Commander          | 

3 

Ingals 

Tomas 

R 

CPT 

Company  Commander      ,' 

4 

Warren 

Geo 

M 

CPT 

Company  Commander      \ 

5 

Watson 

Ralph 

D 

CPT 

Company  Commander      ! 

6 

Faser 

Gas 

L 

1LT 

Adjutant.               J 

UNIT:  5th  Inf 

Bn 

locat: 

[ON:  Pac  Grove 

Palmer  Bob  L 

Waters  Gary  L 

Victor  David  R 

Vongel  Mark  E 


LTC 

CPT 

CPT 

CPT 
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Commander 
Company  Commander 
Company  Commander 
Company  Commander 


1LT   ,'  Adjutant 


UNIT:  1st  Arty  Bn    LOCATION:  Monterey 


1 
2 
3 
4 

5 
6 


1 
2 
3 
4 

5 


1 
2 
3 
4 
5 
6 


Patton  Mike  H 

Crosby  Jerry  J 

Ullman  Rolf  G 

Ulrey  Dan  A 

Manos  John  K 

Evans  Tom  M 


Commander 
Dty  Commander 
Battery  Commander 
Battery  Commander 
Battery  Commander 
Adjutant 


UNIT:  2nd  Arty  Bn    LOCATION:  Santa  Cruz 


Perry  Bill  H 

Moore  Roger  L 

Morton  Brian  C 

Morris  Roy  K 

Evans  Isaac  M 


Commander 
Battery  Commander 
Battery  Commander 
Battery  Commander 
Adjutant 


UNIT:  Armour  Bn 


LOCATION:  Salinas 


Sanders  James  F 

Cook    Ryan  K 

Lopez    Tom  L 

Lay ton   John  E 

Larson   Roger  K 

Newman   Ben  K 


Commander 
Dty  Commander 
Company  Commander 
Company  Command e r 

Company  Commander 
Adjutant 
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UNIT:  Engineers  Bn   LOCATION:  Monterey 


1 
2 
3 
4 
5 
6 


1 
2 

3 
4 
5 

6 


Scott  Paul  V 

Kliff  Frank  E 

Larsen  Allen  A 

Gorby  Glen  G 

Gordon  Jerry  W 

Newton  John  J 


Commander 
Dty  Commander 
Company  Commander 
Company  Commander 
Company  Commander 
Adjutant 


UNIT:  Signals  Bn     LOCATION:  Pac  Grove 


Turner  Carlos  B 

Clark  Tom    L 

Good  John    L 

Gilman  Perry  M 

Garret  Rex    D 

Norton  Denis   E 


Commander 
Dty  Commander 
Company  Commander 
Company  Commander 
Company  Commander 
Adjutant 


UNIT:  Sup/Trans  Bn   LOCATION:  Carmel 


Torres   Alex  A 

Freeman  Jim  E 

Ford     Roger  A 

Foster   Kliff  J 

Owens    Bill  L 


Commander 
Company  Commander 
Company  Commander 
Company  Commander 
Adjutant 


UNIT:  Navy  Command   LOCATION:  Monterey 

i  i       i 

i  i       i 

1  ,'  Ocasio   Jim     E   !  COMD  j  Commander 
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UNIT:  DD  Squadron    LOCATION:  Monterey 


1  !  Odello   Bruno   A 


CAPT  !  Commander 


UNIT:  DD  Miaoulis    LOCATION:  Monterey 


1 
2 

3 
4 
5 

6 


1 
2 
3 
4 
5 
6 


Quinn  Peter   C 

Rivera  Mario   L 

Boris  Peter   H 

Ganos  Jim     A 

Takas  Costas  L 

Zikas  Tom     J 


Commanding  Officer 
Executive  Officer 
ASW  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 


UNIT:  DD  kanaris     LOCATION:  Monterey 


Quill  Kelvin  J 
Ross  Allan  J 
Kontos  David  K 
Kamenos  Joe  M 
Lemos  Tim  N 
Onasis   George  E 


Commanding  Officer 
Executive  Officer 
ASW  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 


UNIT:  DD  Themis 


LOCATION:  Monterey 


Rokos 

Nick 

A 

CDR 

Spencer 

Tim 

M 

LCDR 

Pappas 

Nick 

C 

LTJG 

Rigas 

Ben 

H 

LTJG 

Commanding  Officer 
Executive  Officer 
ASW  Officer 
Commun/tion  Officer 
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5  !  Oscar    Tom    K   !  LTJG  !  CIC  Officer 


UNIT:  LST  Squadron   LOCATION:  Monterey 


1  |  Potter   Tom 


E   !  CAPT  j  Commander 


1 
2 

3 
4 
5 


UNIT:  LST  Argo 


LOCATION:  Monterey 


Roberts  Ben  J 

Stanley  Cris  K 

Gorman   Bruce  L 

Denton   Mark  S 

Alkamo   Jim  P 


CDR 
LCDR 
LTJG 
LTJG 

LTJG 


Commanding  Officer 
Executive  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 


1 
2 
3 
4 
5 


UNIT:  LST  Rhodes 


LOCATION:  Monterey 


Rodes    James  K 

Borrias  Nick  L 

Franko   Jess  L 

Fox     Don  E 

Jones    Peter  L 


CDR 

LT 

LTJG 

LTJG 

LTJG 


Commanding  Officer 
Executive  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 
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4 .   Program  Report4 

This  program  prints  all  the  officers  who  have  been 
awarded  a  degree  in  the  sciences  with  an  emphasis  other  than 
military  sciences.   This  list  includes  name,  rank,  science, 
and  degree,  and  is  sorted  by  name. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  heading  of  the  report  is  printed. 

b.  The  program  uses  two  temporary  files,  TEMPI  and 
TEMP2.   The  MASTER  file  is  used  to  create  a  copy  into  TEMPI, 
which  includes  only  the  necessary  fields,  serial  number, 
name,  rank,  education,  and  degree.   Only  the  officers  whose 
the  field  ' educat '  is  not  empty  are  copied.   Then  the  file 
TEMPI  is  sorted  on  key  'name'  into  the  file  TEMP2. 

c.  Then  the  program  performs  a  WHILE  loop  to  process 
each  record  of  the  file.   More  specifically  within  the  WHILE 
loop  it  performs  the  following: 

(1)  Stores  the  current  field  values  to  the 
temporary  memory  variables. 

(2)  Retrieves  from  RANKS  and  SCIENCES  files  the 
appropriate  rank  name  and  science  name  respectively. 

(3)  A  CASE  statement  is  executed  to  store  the 
appropriate  degree  to  the  corresponding  variable. 

(4)  The  main  line  of  the  output  is  printed. 

d.  The  program  proceeds  with  the  next  record  until 
the  end  of  file  (EOF)  is  encountered. 
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e.   Before  the  program  returns  it  deletes  the 
temporary  files  TEMPI  and  TEMP2,  and  updates  MONITOR  file. 

The  listing  and  output  of  the  programs  are  shown  in 
the  next  pages. 
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********  PROGRAM  REPORT4  ******** 

*  This  program  prints  all  the  officers  in  alphabetical  order 

*  who  have  been  awarded  a  degree  in  sciences  other  than 

*  military  ones 

ERASE 

*  Initialize  memory  variables 

STORE  "LIST  OF  OFFICERS  WITH  NON-MILITARY  STUDIES"  TO  title 
STORE  " =========================================="  TO  underline 

STORE  1  TO  seqnum 

STORE  0  TO  linecount 

STORE  "  "  TO  pname 

STORE  "  "  TO  mscience 

STORE  "   "  TO  meducat 

STORE  "         "  TO  pdegree 

STORE  "   "  TO  mrank 

*  Print  the  list  heading 

SET  PRINT  ON 
<? 

??  "     "+DATEO 
<?«?  "     " 

♦ 

?  "  "+title 

?  "+underline 

? 

<?  " •* 

<?<?    " " 

?  "  ,'  SEQ# !       NAME       |  RANK  !      SCIENCE 

??    "    !      DEGREE      ! " 

<?  ■■ •• 

<?<?    " " 

STORE  linecount+9  TO  linecount 

*  Copy  to  temporary  file  TEMPI  those  officers  whose  field 

*  'educat' is  not  empty  and  only  the  necessary  fields, 

*  and  then  sort  this  file  by  name  into  file  TEMP2 

SELECT  PRIMARY 

USE  master 

COPY  TO  tempi  FIELD  serno, name, rank, educat, degree; 

FOR  educat  <>  "  " 
USE  tempi 

SORT  ON  name  TO  temp2  ASCENDING 
USE  temp2 
DO  WHILE  .NOT.  EOF 

*  Store  current  field  values  to  memory  variables 
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STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  educat  TO  meducat 

*  Retrieve  the  appropriate  rank  name  and  science  name 

SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &mrank 

IF  $(p. serno, 1,1)=  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
END  IF 

USE  sciences  INDEX  sciences 
FIND  fcmeducat 
STORE  name  TO  mscience 

*  Store  the  appropriate  degree  depending  on  the  value  of  the 

*  field  "degree"  of  TEMP2  to  the  corresponding  variable 

DO  CASE 

CASE  p. degree  =  "B" 

STORE  "Bachelor"  TO  pdegree 
CASE  p. degree  =  "M" 

STORE  "Master   "  TO  pdegree 
CASE  p. degree  =  "P" 

STORE  "Ph.D     "  TO  pdegree 
OTHERWISE 

ERASE 

?  CHR(7) 

@  3,30  SAY  "ILLEGAL  DEGREE" 

@  5,27  SAY  p.degree+"    "+p.name 

STORE  0  TO  del 

DO  WHILE  del  <  50 

STORE  del+1  TO  del 

ENDDO  WHILE 
ENDCASE 

*  Print  the  main  line  of  the  output 

IF  linecount  >  53 
EJECT 
STORE  0  TO  linecount 

END  IF 

c?  "II  II" 

II  II 

C?<?  "  I  I     " 

I  I 

?  " j "+STR(seqnum, 3) 

??    "!     "+pname 

??  "  !  "+rankname 

??  " J  "+mscience 

??  "  !  "+pdegree+"  |" 

STORE  seqnum+1  TO  seqnum 

STORE  linecount+2  TO  linecount 
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STORE  " 

TO  pname 

STORE  " 

"  TO  rankname 

STORE  " 

TO  mscience 

STORE  " 

"  TO  meducat 

STORE  " 

"  TO  pdegree 

STORE  " 

"  TO  mrank 

SELECT  PRIMARY 

SKIP 

ENDDO  WHILE 

.NOT.  EOF 

DO  monitr 

*  Delete  the  temporary  files  TEMPI  and  TEMP2 

DELETE  FILE  tempi. DBF 
DELETE  FILE  temp2.DBF 
RETURN 
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12/01/85 


LIST 

OF  OFFICERS  WITH  NON-MILITARY  STUDIES 

!SEQ# 

NAME 

i 
i 

RANK  ! 

SCIENCE 

DEGREE   ! 

!   1 

Adams 

Garry 

J 

CPT 

Oper  Research 

Bachelor  J 

!   2 

Alkamo 

Jim 

P 

1LT 

Meteorology 

Bachelor  | 

!   3 

Borrias 

Nick 

L 

CPT 

Weapons 

Master    ! 

!   4 

Bruce 

Mark 

P 

CPT 

Oper  Research 

Master    J 

!   5 

Clark 

Tom 

L 

MAJ 

Economics 

Master    j 

!   6 

Crosby 

Jerry 

J 

MAJ 

Mec  Engineering 

Bachelor  J 

!   7 

Faser 

Gas 

L 

1LT 

Meteorology 

Bachelor  | 

!   8 

Frank 

Paul 

K 

1LT 

Management 

Master    J 

!   9 

Freeman 

Jim 

E 

CPT 

Management 

Bachelor  ! 

!  10 

Ganos 

Jim 

A 

CPT 

Weapons 

Master    J 

!  11 

Gordon 

Jerry 

W 

CPT 

Comp  Science 

Ph .  D      ! 

!  12 

Jensen 

Ron 

P 

CPT 

Info  Systems 

Bachelor  ,' 

!  13 

Kaan 

Dave 

J 

MG 

Mathematics 

Bachelor  ! 

!  14 

Kamenos 

Joe 

M 

CPT 

Oceanography 

Bachelor  j 

!  15 

King 

Lewis 

M 

LTC 

Chemistry 

Bachelor  I 

!  16 

Koom 

Peter 

H 

LTC 

Phys ics 

Bachelor  ! 

!  17 

Lopes 

Tom 

L 

CPT 

Comp  Science 

Bachelor  | 

!  18 

Morton 

Brian 

C 

CPT 

Comp  Science 

Master    ! 

!  19 

Newman 

Ben 

K 

1LT 

Meteorology 

Bachelor  j 

j  20 

Norton 

Denis 

E 

1LT 

Medicine 

Bachelor  ] 

!  21 

Ocas  io 

Jim 

E 

BG 

Weapons 

Master    ! 

!  22 

Odello 

Bruno 

A 

COL 
135 

Weapons 

Master    J 

23 

01  sen 

Joe 

N 

LTC 

Architecture 

Bachelor 

24 

Onasis 

George 

E 

1LT 

Ship  Building 

Master 

25 

Palmer 

Bob 

L 

LTC 

Aeronautics 

Master 

26 

Pappas 

Nick 

C 

1LT 

Ship  Building 

Master 

27 

Potter 

Tom 

E 

COL 

Weapons 

Master 

28 

Quinn 

Peter 

C 

LTC 

Weapons 

Master 

29 

Rigas 

Ben 

H 

1LT 

Ship  Building 

Ph.D 

30 

Roberts 

Ben 

J 

LTC 

Ship  Building 

Master 

31 

Ross 

Allan 

J 

MAJ 

Weapons 

Ph.D 

32 

Spencer 

Tim 

M 

MAJ 

Weapons 

Master 

33 

Turner 

Carlos 

B 

LTC 

El  Engineering 

Bachelor 

34 

Ulrey 

Dan 

A 

CPT 

Comp  Systems 

Master 

35 

Watson 

Ralph 

D 

CPT 

Comp  Systems 

Master 

36 

Zikas 

Tom 

J 

CPT 

Weapons 

Master 
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5 .   Program  Report5 

This  program  prints  all  the  officers  who  speak 
foreign  languages.   The  list  is  sorted  by  language  and  name 
and,  includes  the  language  spoken  as  a  heading,  name,  rank, 
and  unit. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized. 

b.  A  list  of  all  the  languages  is  displayed  on  the 
screen  and  the  user  is  prompted  to  select  a  particular,  or 
all  the  languages  to  be  printed. 

c.  Depending  on  the  user's  choice  the  program  creates 
a  copy  fo  the  MASTER  file  to  temporary  file  TEMP  which  includes 
all  the  officers  who  speak  any  or  a  particular  language.   If 
the  user  enters  a  wrong  selection,  the  program  goes  back  to 
step  (b) . 

d.  The  main  heading  of  the  output  is  printed. 

e.  If  the  user  decides  to  print  all  the  languages, 
then,  the  program  sorts  the  created  copy  on  ascending  keys 
'forlang'  and  'name'  into  file  TEMP2,  and  a  WHILE  loop  is 
executed  to  make  the  process  which  includes: 

(1)   The  file  TEMP2  is  read  sequentially.   The 
field  'forlag'  is  compared  to  the  variable  'lang'  which  con- 
tains the  value  of  the  field  'forlag'  of  the  previous  record. 
If  it  is  different,  this  means  that  we  have  a  new  language, 
whose  name  is  printed  as  a  heading. 
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(2)  The  program  retrieves  the  rank  and  unit 
names,  from  the  corresponding  files,  and  prints  the  main 
line  of  the  output. 

(3)  The  process  is  continued  with  the  next 
record. 

f.  If  the  user  decides  to  print  a  particular  lan- 
guage, the  corresponding  language  heading  is  printed,  and 
the  previously  created  copy  is  sorted  by  name,  into  TEMPI. 

g.  Then  a  WHILE  loop  is  executed  which  performs 
the  same  things  as  above,  except  the  comparison,  because 
now  we  have  only  one  language. 

h.   At  the  end  all  the  temporary  files  are  deleted, 
the  monitor  file  is  updated,  and  the  program  returns  to 
SUBMENU2 . 

The  listing  and  output  of  the  program  are  shown  in 
the  next  pages. 
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********  PROGRAM  REPORT5  ******** 

*  This  program  prints  the  officers  who  speak  a  particular 

*  or  any  foreign  language 

ERASE 

SELECT  PRIMARY 

*  Initialize  memory  variables 
STORE  4  TO  vert 


STORE  ' 

"  TO  line 

STORE  ' 

1 "  TO 

linel 

STORE  ' 

"  TO  lang 

STORE  ' 

"  TO  mlang 

STORE  ' 

TO  pname 

STORE  • 

"  TO  mrank 

STORE  ' 

"  TO  munit 

STORE  ' 

"  TO  prank 

STORE  ' 

"  TO 

punit 

STORE  0  TO  linecount 
STORE  1  TO  seqnum 

*  Display  on  the  screen  the  list  of  languages  and  ask  the 

*  user  to  make  his  choice 

STORE  T  TO  wrong 
DO  WHILE  wrong 
ERASE 

@  1,30  SAY  "LANGUAGES  LIST" 
@  2,30  SAY  '•==============" 

@  3,30  SAY  "00 ALL- 
USE  forlangs 
DO  WHILE  .NOT.  EOF 

@  vert, 30  SAY  code+line+name 

STORE  vert+1  TO  vert 

SKIP 
ENDD0  WHILE 

@  vert+2,27  SAY  "Make  your  selection" 
@  vert+4, 27  SAY  "Enter  two  blanks  to  exit" 
STORE  4  TO  vert 
STORE  "   "  TO  choice 
ACCEPT  TO  choice 
IF  choice  = 

USE 

RETURN 
ENDIF 

*  Create  the  appropriate  copy  according  to  the  user's 

*  selection 

USE  master 

IF  choice  =*  "00" 

COPY  TO  temp  FIELD  name, rank, unit,  forlang; 
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FOR  forlang  <>  " 
STORE  F  TO  wrong 
ELSE 

IF  VAL(choice)  >=  01  .AND.  VAL(choice)  <=  16 

COPY  TO  temp  FIELD  name, rank, unit  FOR  forlang  =  choice 
STORE  F  TO  wrong 
ELSE 

*  If  the  user  enters  a  wrong  number,  display  an  error 

*  message  and  give  him  another  chance 

ERASE 

@  9, 18  SAY  choice+"  is  an  illegal  choice,  try  again" 

?  CHR(7) 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
END  IF 
END  IF 
ENDDO  WHILE  wrong 

*  Print  the  main  heading 

ERASE 

SET  PRINT  ON 

?  "  "+DATEO 

<?  "  ■■ 

?  "     LIST  OF  OFFICERS  WHO  SPEAK  FOREIGN  LANGUAGES" 

*?  "     ============================================" 

♦  ^  —  ^—  ^  —  —  —  —  —  —  —  —  _  w  —  —  —  —  —  — .  —  —  —  —  «*  —  —  —  —  —  —  —  —  —  -  _  —  — .  —  —  —  — 

? 

?  "*SEQ#|       NAME        !   RANK   J      UNIT     *' 

STORE  linecount+9  TO  linecount 

*  Do  the  appropriate  process  depending  on  the 

*  user's  request 

IF  choice  =  "00" 

*  Sort  the  created  copy  on  ascending  keys 

*  'forlang'  and  'name' 

USE  temp 

SORT  ON  name  TO  tempi 

USE  tempi 

SORT  ON  forlang  TO  temp2 

USE  temp2 

DO  WHILE  .NOT.  EOF 

"*  If  a  new  code  for  the  field  'forlang'  is  encountered 
*  print  the  new  language  heading 
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IF  forlang  <>  lang 

STORE  for lang  TO  lang 
STORE  for lang  TO  mlang 
STORE  1  TO  seqnum 
<? 

STORE  linecount+2  TO  linecount 
IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

SELECT  SECONDARY 
USE  forlangs  INDEX  forlangs 
FIND  &mlang 

?  "  "+linel 

?  "+narae 

?  "  "+linel 

STORE  linecount+3  TO  linecount 
ENDIF 

*  Store  current  field  values  to  memory  variables 

SELECT  PRIMARY 
STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  unit  TO  munit 

*  Retrieve  rank  and  unit  names 

SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &mrank 

IF  $(munit, 1, 1)  =  "1" 

STORE  armyname  TO  prank 
ELSE 

STORE  navyname  TO  prank 
ENDIF 

USE  units  INDEX  units 
FIND  &munit 
STORE  title  TO  punit 

*  Print  the  main  line 


IF 

linecount  >  53 

EJECT 

STORE 

0  TO  linec 

ount 

ENDIF 

"  i     i 

?? 

■■ 

i     i 

i  " 

? 

" ! "+STR( 

seqnum, 

3) 

?? 

..  i   ■• 

fpname 

?? 

i 

"+prank 

?? 

i 

i 

"+punit+ " 
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STORE  seqnum+1  TO  seqnum 
STORE  linecount+2  TO  linecount 

*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 
ENDDO  WHILE 
ELSE 

*  Handle  the  case  where  the  user  has  requested 

*  a  list  of  those  officers  who  speak  a 

*  particular  language 

SELECT  SECONDARY 

USE  forlangs  INDEX  forlangs 

FIND  &choice 

? 

«? 

?  "                "+linel 

?  "+name 

?  "                "+linel 

STORE  linecount+5  TO  linecount 

*  Sort  the  created  copy  in  ascending  order 

*  with  key  'name' 

SELECT  PRIMARY 

USE  temp 

SORT  ON  name  TO  tempi 

USE  tempi 

DO  WHILE  .NOT.  EOF 

*  Store  current  field  values  to  memory  variables 

STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  unit  TO  munit 

*  Get  the  rank  and  unit  names 

SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &mrank 

IF  $(p.unit, 1,1)=  "1" 

STORE  armyname  TO  prank 
ELSE 

STORE  navyname  TO  prank 
ENDIF 

USE  units  INDEX  units 
FIND  &munit 
STORE  title  TO  punit 

*  Print  the  main  line 
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IF  linecount  >  53 

EJECT 

STORE  0  TO  linecount 
END  IF 

i     i  i 

<?<?    "  i  •■ 

•  •  i 

?  " ! "+STR(seqnum,  3) 

??  "!   "+name 

??  "  i   "+prank 

??  "  !   "+punit+"   ! " 

STORE  seqnum+1  TO  seqnum 

STORE  linecount+2  TO  linecount 

*  Proceed  with  the  next  record 

SELECT  PRIMARY 
SKIP 
ENDDO  WHILE 
ENDIF 

*  Delete  the  temporary  files 

IF  choice  =  "00" 

DELETE  FILE  temp. DBF 

DELETE  FILE  tempi. DBF 

DELETE  FILE  temp2.DBF 
ELSE 

DELETE  FILE  temp. DBF 

DELETE  FILE  tempi. DBF 
ENDIF 

*  Update  MONITOR  file  and  return 

DO  monitr 
RETURN 
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12/01/85 
LIST  OF  OFFICERS  WHO  SPEAK  FOREIGN  LANGUAGES 


*SEQ#!  NAME  !      RANK       J  UNIT  * 


Allen 

English 

1 

David 

E 

CPT 

2nd  Inf  Bn 

2 

Borrias 

Nick 

L 

LT 

LST  Rhodes 

3 

Cook 

Ryan 

K 

MAJ 

Armour  Bn 

4 

Dalton 

John 

E 

MAJ 

4th  Inf  Bn 

5 

Farmer 

Peter 

J 

1LT 

5th  Inf  Bn 

6 

Ford 

Roger 

A 

CPT 

Sup/Trans  Bn 

7 

Fox 

Don 

E 

LTJG 

LST  Rhodes 

8 

Ganos 

Jim 

A 

LT 

DD  Miaoulis 

9 

Garret 

Rex 

D 

CPT 

Signals  Bn 

10 

Gorby 

Glen 

G 

CPT 

Engineers  Bn 

11 

Gorman 

Bruce 

L 

LTJG 

LST  Argo 

12 

Jackson 

Peter 

M 

CPT 

3rd  Inf  Bn 

13 

Kaan 

Dave 

J 

MG 

1st  Inf  Div 

14 

Karras 

Mike 

L 

LTC 

1st  Inf  Div 

15 

Keen 

Robt 

N 

COL 

1st  Inf  Div 

16 

Larson 

Roger 

K 

CPT 

Armour  Bn 

17 

Manos 

John 

K 

CPT 

1st  Arty  Bn 

18 

Newton 

John 

J 

1LT 

Engineers  Bn 

19 

Onasis 

George 

E 

LTJG 

DD  kanaris 

20 

Owens 

Bill 

L 

1LT 
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Sup/Trans  Bn 

21  !  Palmer  Bob  L 

22  J  Perry  Bill  H 

23  !  Peters  Mark  J 

24  !  Quill  Kelvin  J 

25  !  Scott  Paul  V 

26  !  Victor  David  R 


LTC 
LTC 
LTC 
CDR 
LTC 
CPT 


5th  Inf  Bn 
2nd  Arty  Bn 
3rd  Inf  Bn 
DD  kanaris 
Engineers  Bn 
5th  Inf  Bn 


King 


German 


Lewi: 


M 


LTC 


1st  Inf  Bn 


Dorey 


Italian 


Jim 


H 


MAJ 


2nd  Inf  Bn 


French 


1  !   Bruce    Mark    P 

2  !   Torres   Alex   A 


CPT 
LTC 


1st  Inf  Bn 
Sup/Trans  Bn 


Spanish 


1  !   Evans    Isaac   M 

2  !   Ingals   Tomas   R 


1LT 
CPT 


2nd  Arty  Bn 

4th  Inf  Bn 


Turkish 


1  i   Potter   Tom     E 

2  !   Roberts  Ben     J 


CAPT 


LST  Squadron 


LST  Argo 
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Arabia** 


1  |   Kamenos  Joe     M 

2  !   Rivera  Mario   L 


LT 
LCDR 


1  • 


Japanese 


1  !   Alkamo   Jim    P 

2  !   Clark    Tom    L 


LTJG 
MAJ 


Signals  Bn 


Chinese 


1  |   Horan    Kevin   L 

2  J   Morton   Brian   C 


CPT 
CPT 


2nd  Inf  Bn 
2nd  Arty  Bn 


Portuguese 


1  !   Frank    Paul    K 

2  |   Watson   Ralph   D 


1LT 
CPT 


1st  Inf  Bn 
4th  Inf  Bn 


Russian 


1  |   Ocasio   Jim     E 

2  |   Spencer  Tim     M 


COMD 
LCDR 


Navy  Command 
DD  Themis 


Bulgarian 


Z  ika< 


Tom 


J 


LT 


DD  Miaouli: 


146 


Korean 


Rigas    Ben 


H 


LTJG 


DD  Themis 


Danish 


Ullman   Rolf 


CPT 


1st  Arty  Bn 


Swedish 


1  !   Felton   John    K 

2  |   Lopez    Tom    L 


1LT 
CPT 


3rd  Inf  Bn 
Armour  Bn 


Dutch 


Good 


John 


CPT 


Signals  Bn 
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6 .   Program  Report6 

This  program  lists  all  the  officers  in  alphabetical 
order,  including  name,  rank,  marital  status,  and  number  of 
children. 

The  program  has  the  following  structure: 

a.  The  appropriate  memory  variables  are  initialized 
and  the  main  titles  are  printed. 

b.  We  use  two  temporary  files,  TEMPI  and  TEMP2.   The 
first  one  is  used  for  creating  a  copy  from  MASTER  file,  and 
which  includes,  serial  number,  name,  rank,  marital  status, 
and  number  of  children,  i.e.  only  the  necessary  information 
for  creating  the  report.   Then  this  file  is  sorted  by  name 
into  the  file  TEMP2. 

c.  Then  the  main  process  of  the  program  is  executed 
within  a  WHILE  loop  with  the  following  functions: 

(1)  The  current  field  values  are  stored  to  the 
memory  variables. 

(2)  The  appropriate  rank  name  is  retrieved  from 
RANKS  file  and  marital  status  is  stored  to  the  corresponding 
variable,  depending  on  the  value  of  the  field  'marstat1,  of 
the  file  TEMP2. 

(3)  Then  the  program  prints  the  main  line  and 
proceeds  with  the  next  record. 

d.  At  the  end  of  the  WHILE  loop  the  program  deletes 
the  files  TEMPI  and  TEMP 2 ,  and  then  returns  to  the  calling 
program. 
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The  listing  and  output  of  the  program  are  shown  in 
the  next  pages. 
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********  PROGRAM  REPORT6  ******** 

*  This  program  lists  all  the  officers  in  alphabetical  order 

*  including  name,  rank,  marital  status,  and  number  of  children 

ERASE 

*  Initialize  memory  variables 

STORE  '"LIST  OF  OFFICERS  INCLUDING  MARITAL  STATUS"  TO  title 

:  =  -  =  =  zz  =  =  =  =  z:  =  =  =  =  =  =  =  =  zz=:zi  =  =  =  =  --  =  =.  =  =:--=:=:z:--  =  -"     TO  Underline 


STORE  "==========================: 

STORE  1  TO  seqnum 

STORE  0  TO  linecount 

STORE  "  "  TO  pnarae 

STORE  "  "  TO  pmarstat 

STORE  "  "  TO  pchildren 

STORE  "     "  TO  prank 

STORE  "   "  TO  mrank 


*  Print  the  list  heading 


SET   PRINT  ON 
<p 

??    " 

? 

??    " 
<p 

• 

<? 
<? 
<? 

<?<?    •' 

<? 

?? 


"+DATEO 


"+title 
"♦underline 


" ! SEQ# ! 
STATUS  !  CHILDREN 


NAME 


RANK  !  MARITAL 


STORE  linecount+9  TO  linecount 

*  Copy  MASTER  file  to  temporary  file  TEMPI  including  only  the 

*  necessary  fields,  and  sort  this  file  by  name  into  TEMP2 

SELECT  PRIMARY 

USE  master 

COPY  TO  tempi  FIELD  serno, name, rank, marstat, children 

USE  tempi 

SORT  ON  name  TO  temp2  ASCENDING 

USE  temp2 

DO  WHILE  .NOT.  EOF 

*  Store  current  field  values  to  memory  variables 

STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  marstat  TO  pmarstat 
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STORE  children  TO  pchildren 

*  Get  the  appropriate  rank  name 

SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &mrank 

IF  $(p. serno, 1,1)=  "1" 

STORE  armyname  TO  prank 
ELSE 

STORE  navyname  TO  prank 
END  IF 

*  Store  the  appropriate  marital  status  name 

DO  CASE 

CASE  p.marstat  =  "M' 

STORE  "Married 
CASE  p.marstat  =  "U 

STORE  "Unmarried 
CASE  p.marstat  =  "D 

STORE  "Divorced 
OTHERWISE 

ERASE 

?  CHR(7) 

@  10,30  SAY  "ILLEGAL  MARITAL  STATUS" 

@  12,30  SAY  p. marstat +"***" +p. name 

STORE  1  TO  del 

DO  WHILE  del  <  50 

STORE  del+1  TO  del 

ENDDO 
ENDCASE 

*  Print  the  main  line  of  the  list 

IF  linecount  >  53 

EJECT 

STORE  0  TO  linecount 
ENDIF 


TO  pmarstat 
TO  pmarstat 
TO  pmarstat 


9 

??  " 

i     i 

i           i 

? 

" ! "+STR(seqnum,  3) 

9"?   "  ' 

"+pname 

•  •      1 

"+prank 

•  •     1 

"+praarstat 

??  " 

j     "+pchildren+"      J " 

STORE 

seqnum+1  TO  seqnum 

STORE 

linecount+2  TO  linecount 

STORE 

"  TO  pname 

STORE 

TO  pmarstat 

STORE 

"  TO  prank 

STORE 

"  TO  pchildren 

STORE 

"  TO  mrank 

I         I 

I  I 


SELECT  PRIMARY 
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SKIP 
ENDDO  WHILE  .NOT.  EOF 
DO  monitr 

*  Delete  the  temporary  files  TEMPI  and  TEMP2 

DELETE  FILE  tempi. DBF 
DELETE  FILE  temp2.DBF 
RETURN 
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12/01/85 


LIST  OF  OFFICERS  INCLUDING  MARITAL  STATUS 


!  SEQ# 


NAME 


!  RANK  !  MARITAL  STATUS  |  CHILDREN 


1  ! 

'   2  ! 

'   3  ! 

!   4  J 

5  ! 

6  ! 

7  J 

8  i 

9  1 

10  ! 

11  ! 

!  12  ! 

!  13  ! 

!  14  ! 

!  15  ! 

!  16  ! 

!  17  ! 

!  18  ! 

!  19 

:  20 

!  21 

!  22 

Adams 

Garry 

J   . 

CPT 

Alkamo 

Jim 

P 

1LT 

Allen 

David 

E 

CPT 

Boris 

Peter 

H 

CPT 

Borrias 

Nick 

L 

CPT 

Brown 

Peter 

R 

CPT 

Bruce 

Mark 

P 

CPT 

Byron 

Larry 

M 

CPT 

Clark 

Tom 

L 

MAJ 

Cook 

Ryan 

K 

MAJ 

Crosby 

Jerry 

J 

MAJ 

Dalton 

John 

E 

MAJ 

Denton 

Mark 

S 

1LT 

Dorey 

Jim 

H 

MAJ 

Durran 

Frank 

M 

MAJ 

Emery 

Roy 

J 

MAJ 

Evans 

Isaac 

M 

1LT 

Evans 

Tom 

M 

1LT 

Farmer 

Peter 

J 

1LT 

Faser 

Gas 

L 

1LT 

Felton 

John 

K 

1LT 

Foley 

Mark 

L 

'  1LT 

Married 

Married 

Divorced 

Married 

Unmarried 

Married 

Divorced 

Unmarried 

Unmarried 

Married 

Married 

Married 

Married 

Divorced 

Married 

Divorced 

Married 

Unmarried 

Unmarried 

Unmarried 

Unmarried 

Unmarried 
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23 

Ford 

Roger 

A 

CPT   , 

Married 

2 

24 

Foster 

Kliff 

J 

CPT 

Married 

3 

25 

Fox 

Don 

E 

1LT 

Unmarried 

26 

Frank 

Paul 

K 

1LT 

Unmarried 

27 

Franko 

Jess 

L 

1LT 

Divorced 

1 

28 

Freeman 

Jim 

E 

CPT 

Married 

1 

29 

Ganos 

Jim 

A 

CPT 

Married 

2 

30 

Garret 

Rex 

D 

CPT 

Married 

31 

Gilman 

Perry- 

M 

CPT 

Divorced 

32 

Good 

John 

L 

CPT 

Unmarried 

33 

Gorby 

Glen 

G 

CPT 

Unmarried 

34 

Gordon 

Jerry- 

W 

CPT 

Married 

2 

35 

Gorman 

Bruce 

L 

1LT 

Married 

1 

36 

Hogan 

Joe 

K 

CPT 

Unmarried 

37 

Horan 

Kevin 

L 

CPT 

Unmarried 

38 

Ingals 

Tomas 

R 

CPT 

Divorced 

39 

Jackson 

Peter 

M 

CPT 

Unmarried 

40 

Jensen 

Ron 

P 

CPT 

Married 

2 

41 

Jones 

Peter 

L 

1LT 

Married 

2 

42 

Kaan 

Dave 

J 

MG 

Married 

1 

43 

Kamenos 

Joe 

M 

CPT 

Divorced 

2 

44 

Kane 

Bob 

R 

BG 

Married 

2 

45 

Karras 

Mike 

L 

LTC 

Married 

2 

46 

Keen 

Robt 

N 

COL 

Married 

1 

47 

King 

Lewis 

M 

LTC 

Unmarried 

48 

Kirk 

Burt 

N 

LTC 

Unmarried 

49 

Kliff 

Frank 

E 

MAJ 
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Unmarried 

50 

Kontos 

David 

K   , 

CPT   j 

Married 

3 

51 

Koom 

Peter 

H 

LTC 

Married 

3 

52 

Kueny 

John 

s 

LTC 

Unmarried 

53 

Larsen 

Allen 

A 

CPT 

Married 

54 

Larson 

Roger 

K 

CPT 

Unmarried 

55 

Layton 

John 

E 

CPT 

Divorced 

1 

56 

Lemos 

Tim 

N 

CPT 

Unmarried 

57 

Lopez 

Tom 

L 

CPT 

Married 

1 

58 

Manos 

John 

K 

CPT 

Married 

59 

Moore 

Roger 

L 

CPT 

Married 

2 

60 

Morris 

Roy 

K 

CPT 

Married 

1 

61 

Morton 

Brian 

C 

CPT 

Married 

62 

Newman 

Ben 

K 

1LT 

Married 

2 

63 

Newton 

John 

J 

1LT 

Married 

3 

64 

Norton 

Denis 

E 

1LT 

Married 

2 

65 

Ocasio 

Jim 

E 

BG 

Married 

2 

66 

Odello 

Bruno 

A 

COL 

Divorced 

1 

67 

01  sen 

Joe 

N 

LTC 

Married 

3 

68 

Onasis 

George 

E 

1LT 

Unmarried 

69 

Oscar 

Tom 

K 

1LT 

Married 

2 

70 

Owens 

Bill 

L 

1LT 

Married 

1 

71 

Palmer 

Bob 

L 

LTC 

Married 

1 

72 

Pappas 

Nick 

C 

1LT 

Unmarried 

73 

Patton 

Mike 

H 

LTC 

Married 

3 

74 

Perry 

Bill 

H 

LTC 

Married 

1 

75 

Peters 

Mark 

J 

LTC 

Divorced 

1 

76 

Peters 

Nick 

K 

LTC 
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Married 

2 

77 

Potter 

Tom 

E 

COL 

Unmarried 

78 

Quill 

Kelvin 

J 

LTC 

Unmarried 

79 

Quinn 

Peter 

C 

LTC 

Married 

1 

80 

Rigas 

Ben 

H 

1LT 

Married 

1 

81 

Rivera 

Mario 

L 

MAJ 

Married 

2 

82 

Roberts 

Ben 

J 

LTC 

Divorced 

83 

Rodes 

James 

K 

LTC 

Married 

2 

84 

Rokos 

Nick 

A 

LTC 

Married 

2 

85 

Ross 

Allan 

J 

MAJ 

Married 

2 

86 

Sanders 

James 

F 

LTC 

Unmarried 

87 

Scott 

Paul 

V 

LTC 

Unmarried 

88 

Spencer 

Tim 

M 

MAJ 

Unmarried 

89 

Stanley 

Cris 

K 

MAJ 

Unmarried 

90 

Takas 

Costas 

L 

CPT 

Married 

2 

91 

Torres 

Alex 

A 

LTC 

Unmarried 

92 

Turner 

Carlos 

B 

LTC 

Unmarried 

93 

Ullman 

Rolf 

G 

CPT 

Married 

1 

94 

Ulrey 

Dan 

A 

CPT 

Married 

95 

Victor 

David 

R 

CPT 

Unmarried 

96 

Vongel 

Mark 

E 

CPT 

Unmarried 

97 

Warren 

Geo 

M 

CPT 

Married 

98 

Waters 

Gary 

L 

CPT 

Married 

3 

99 

Watson 

Ralph 

D 

CPT 

Divorced 

2 

00 

Zikas 

Tom 

J 

!  CPT 

!    Married 

2 
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7 .   Program  Report7 

This  program  calculates  the  service  time  in  the  cur- 
rent unit,  as  well  as  the  total  service  time  for  each  officer 
The  output  of  the  program  is  directed  to  the  printer  only, 
while  appropriate  messages  are  displayed  on  the  screen  to 
inform  the  user  of  what  is  going  on  at  the  various  steps  of 
the  program. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  headlines  are  printed. 

b.  The  MASTER  file  is  copied  to  the  file  TEMP 
including  only  the  fields  'name',  'serentry',  and  ' reptdate ' . 
Then  this  file  is  sorted  by  name  to  the  file  TEMPI,  which  is 
used  for  the  main  process. 

c.  The  program  performs  a  WHILE  loop  to  do  the 
following: 

(1)  In  order  to  do  the  calculations  the  proper 
way,  we  have  to  transform  the  format  of  the  dates  from 
MM/DD/YY  to  YY/MM/DD. 

(2)  We  calculate  the  service  time  in  current 
unit  as  follows:   The  day  of  the  report  date,  is  compared 

to  the  day  of  the  day  of  the  current  date.   If  it  is  greater, 
we  add  30  days  to  the  day  of  the  current  date,  and  subtract 
1  from  the  month  of  the  current  date,  otherwise  they  remain 
unchanged.   Then  the  month  of  report  is  compared  to  the 
month  of  the  current  date,  either  unchanged  or  reduced  by  1 
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as  mentioned  before.   If  it  is  greater  we  add  12  to  the  month 
of  the  current  date  and  subtract  1  from  the  year  of  the  cur- 
rent date,  otherwise  remain  unchanged.   This  way  we  make 
sure  that  the  subtraction  is  possible.   We  do  the  operation 
storing  the  number  of  years,  months,  and  days  to  memory 
variables . 

(3)  With  the  same  logic  we  calculate  the  total 
service  time. 

(4)  The  program  prints  the  main  line,  reinitial- 
izes the  proper  memory  variables  to  accept  the  new  values, 
and  continues  with  the  next  record. 

d.   At  the  end  the  MONITOR  file  is  updated,  the 
temporary  files  are  deleted,  and  the  program  returns. 

The  listing  and  output  of  the  program  are  shown  in 
the  next  pages. 
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********  PROGRAM  REPORT7  ******** 

*  This  program  prints  all  the  officers  with  their  service 

*  time  in  the  current  unit  and  the  total  service  time 

ERASE 

SET  CONSOLE  OFF 

SET  PRINT  ON 


*  Initialize  memory  variables 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


TO  pname 
"  TO  mdate 
TO  mserentry 
TO  rareptdate 
LIST  OF  OFFICERS  INCLUDING  SERVICE  TIME"  TO  titlel 
IN  CURRENT  UNIT  AND  TOTAL  SERVICE  TIME"  TO  title2 
="=============="  —="=  =============="  TO  line3 

*  !  ! SERVICE  TIME  IN  UNIT"  TO  title3 
! TOTAL  SERVICE  TIME  *"  TO  title4 

*SEQ#!      NAME       J "  TO  midlinel 

i *••  To  midline2 

*  !  ! YEARS   MONTHS   DAYS"  TO  title5 
! YEARS   MONTHS   DAYS*"  TO  title6 

"^  ^    "A'  *^*  ~^  ~^   "^   "^   i    ~^    ~^'    i'    A?    ~k    "A"    ~A   "i    A    "i    ~A    '^   'A"     A    "~A    'A    "A    A"    ^Jf    "it'  ^    A'    ~if   ~A    "Jf    '~it    ~^    ~i(     •k?     '  '  I  I  *,'    \  "1      J     v_  "1 

****************************"  TO  lin©2 

0  TO  linecount 

1  TO  seqnum 
0  TO  day 

0  TO  days 
0  TO  month 
0  TO  months 
0  TO  year 
0  TO  years 
0  TO  dayl 
0  TO  month 1 
0  TO  month2 
0  TO  yearl 


*  Print  main  headings 


@  9 

<? 

?? 

<? 

?? 

<p 

<? 
<? 
? 

?  1 
?  t 


, 19  SAY  "Now  the  headlines  are  being  printed 

"+DATEO 


"+titlel 
"+line3 
"+title2 
"+line3 


inel+1 ine2 
itle3+title4 
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?  midlinel+midline2 

?  title5+title6 

?  Iinel+line2 

STORE  linecount+13  TO  linecount 

ERASE 

*  Create  a  copy  of  the  MASTER  file  and  sort  it  by  name 

@  9, 17  SAY  "Now  wait  a  little,  the  MASTER  file  is  being  sorted" 

SELECT  PRIMARY 

USE  master 

COPY  TO  temp  FIELD  name, serentry, reptdate 

USE  temp 

SORT  ON  name  TO  tempi 

USE  tempi 

ERASE 

@  9,21  SAY  "Report7  is  currently  being  printed" 

DO  WHILE  .NOT.  EOF 

*  Store  current  field  values  in  temporary  variables 

*  so  that  the  report  date  and  service  entry  are 

*  transformed  from  the  form  MM/DD/YY  to  the  form 

*  YY/MM/DD 

STORE  name  TO  pname 

STORE  $(reptdate, 5, 2 )+$( reptdate, 1, 2 )+$( reptdate, 3,2); 

TO  mreptdate 
STORE  $( serentry, 5, 2 )+$( serentry, 1, 2)+$ (serentry, 3,2); 

TO  mserentry 
STORE  $(DATE( ), 7, 2)+$(DATE( ), 1, 2)+$(DATE( ), 4,2)  TO  mdate 

*  Calculate  the  service  time  in  current  unit 

IF  VAL( $( mreptdate, 5,2) )  >  VAL( $(mdate, 5, 2 ) ) 

STORE  VAL($( mdate, 5, 2) )  +  30  TO  dayl 

STORE  VAL($(mdate, 3, 2) )  -  1  TO  monthl 
ELSE 

STORE  VAL($( mdate, 5, 2) )  TO  dayl 

STORE  VAL($( mdate, 3, 2) )  TO  monthl 
ENDIF 
IF  VAL( $( mreptdate, 3, 2) )  >  monthl 

STORE  monthl  +  12  TO  month2 

STORE  VAL( $( mdate, 1,2) )  -  1  TO  yearl 
ELSE 

STORE  monthl  TO  month2 

STORE  VAL($( mdate, 1, 2))  TO  yearl 
ENDIF 

STORE  yearl  -  VAL( $( mreptdate, 1, 2 ) )  TO  years 
STORE  month2  -  VAL( $( mreptdate, 3, 2 ) )  TO  months 
STORE  dayl  -  VAL( $( mreptdate, 5, 2 ) )  TO  days 

*  Calculate  the  total  service  time 

IF  VAL($(mserentry, 5, 2) )  >  VAL( $(mdate, 5, 2 ) ) 
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STORE  VAL($(mdate,5, 2))  +  30  TO  dayl 
STORE  VAL($(mdate, 3,2))  -  1  TO  monthl 

ELSE 

STORE  VAL($(mdate, 5,2))  TO  dayl' 
STORE  VAL($(mdate, 3, 2) )  TO  monthl 

END  IF 

IF  VAL($(mserentry, 3, 2) )  >  monthl 
STORE  monthl  +  12  TO  month2 
STORE  VAL($(mdate, 1,2))  -  1  TO  yearl 

ELSE 

STORE  monthl  TO  month2 

STORE  VAL($(mdate, 1, 2))  TO  yearl 

END  IF 

STORE  yearl  -  VAL($(mser entry, 1, 2 ) )  TO  year 

STORE  month2  -  VAL( $(mser entry, 3, 2 ) )  TO  month 

STORE  dayl  -  VAL($(mser entry, 5, 2) )  TO  day 

*  Print  the  main  line 

IF  linecount  >  53 

EJECT 

STORE   50   TO    linecount 
ENDIF 

cp  "II  I 

I  I  I 

??   "  !  !" 

?  " J "+STR(seqnum, 3) 

??    " !     "+name 

cpc?       "    | 

•  •       i 


"+STR(years, 2)+"  "+STR(months, 2)+" 


??    STR(days, 2)+" 

??   STR(year, 2)+"  "+STR( month, 2 )+" 

??   STR(day, 2)+"     \  " 

STORE  seqnum+1  TO  seqnum 

STORE  linecount+2  TO  linecount 

*  Reinitialize  to  0  the  memory  variables  that  contain 

*  the  service  times 

STORE  0  TO  year 
STORE  0  TO  month 
STORE  0  TO  day 
STORE  0  TO  years 
STORE  0  TO  months 
STORE  0  TO  days 
SKIP 
ENDDO  WHILE  .NOT.  EOF 

*  Delete  the  temporary  files  and  update  the  MONITOR  file 

ERASE 

@  9,20  SAY  "The  temporary  auxiliary  files  are  being  deleted" 

DELETE  FILE  temp 

DELETE  FILE  tempi 

DO  monitr 

ERASE 
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SET  CONSOLE  ON 
RETURN 
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12/01/85 


LIST  OF  OFFICERS  INCLUDING  SERVICE  TIME 
IN  CURRENT  UNIT  AND  TOTAL  SERVICE  TIME 


* 
*SEQ# 

#  #  *  *  *  * 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


NAME 

^L-  SMj  S^   ^'  y^   sAV  sX-'  -X<  •X''  ^^  -X-  '•X-'  ■X'  v^.  ■-.L-1  -X-  .X'  -.L-  ,L 

Adams  Garry  J 

Alkamo  Jim  P 

Allen  David  E 

Boris  Peter  H 

Borrias  Nick  L 

Brown  Peter  R 

Bruce  Mark  P 

Byron  Larry  M 

Clark  Tom  L 

Cook  Ryan  K 

Crosby  Jerry  J 

Dalton  John  E 

Denton  Mark  S 

Dorey  Jim  H 

Durran  Frank  M 

Emery  Roy  J 

Evans  Isaac  M 

Evans  Tom  M 

Farmer  Peter  J 

Faser  Gas  L 


SERV  TIME  IN  UNIT 


YY      MM     DD 

-l.-     X'  >L.  -1,  X.  -X'  \X  ^Lr     X.  ^X-  \L-  \X/  sX/  X.  -i,  X-'  X.   X 


TOTAL  SERVICE  TIME* 
* 

YY      MM      DD  * 

'A'  "A"  "A"  "'A'  A"'  A'  A"  'V'  A''  A'   i"   A   i-   A'   ■  '   i"   i"  '  I"   * 


1 

2 

11  , 

13 

2 

10 

2 

4 

11 

9 

2 

9 

2 

2 

15 

13 

2 

10 

1 

4 

15 

13 

2 

9 

1 

4 

25 

16 

2 

9 

2 

2 

15 

13 

2 

10 

1 

3 

16 

14 

2 

11 

1 

3 

10 

14 

2 

11 

2 

4 

9 

16 

2 

10 

1 

4 

10 

15 

2 

9 

2 

4 

11 

16 

2 

10 

2 

4 

11 

17 

2 

10 

1 

4 

12 

!   9 

2 

9 

1 

4 

11 

!  18 

2 

11 

1 

4 

11 

!  18 

2 

11 

2 

4 

13 

!  18 

2 

11 

2 

4 

15 

!   8 

2 

10 

2 

4 

16 

!   8 

2 

10 

1 

4 

18 

!   8 

2 

10 

2 

4 

19 

!  9 

2 

11 

163 


21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


Felton 

John 

K 

1 

Foley 

Mark 

L 

2 

Ford 

Roger 

A 

1 

Foster 

Kliff 

J 

2 

Fox 

Don 

E 

1 

Frank 

Paul 

K 

1 

Franko 

Jess 

L 

2 

Freeman 

Jim 

E 

2 

Ganos 

Jim 

A 

1 

Garret 

Rex 

D 

2 

Gilman 

Perry 

M 

1 

Good 

John 

L 

1 

Gorby 

Glen 

G 

1 

Gordon 

Jerry 

N 

2 

Gorman 

Bruce 

L 

2 

Hog  an 

Joe 

K 

2 

Horan 

Kevin 

L 

1 

Ingals 

Tomas 

R 

1 

Jackson 

Peter 

M 

1 

Jensen 

Ron 

P 

1 

Jones 

Peter 

L 

2 

Kaan 

Dave 

J 

1 

Kamenos 

Joe 

M 

2 

Kane 

Bob 

R 

1 

Karras 

Mike 

L 

1 

Keen 

Robt 

N 

2 

King 

Lewis 

M 

1 

4 

21 

9 

4 

18 

10 

4 

3 

11 

4 

2 

12 

4 

9 

9 

4 

1 

10 

4 

10 

9 

4 

4 

14 

4 

21 

13 

4 

5 

12 

4 

6 

12 

4 

7 

14 

4 

9 

11 

4 

8 

13 

4 

12 

9 

4 

13 

12 

2 

11 

12 

3 

16 

14 

4 

11 

12 

4 

11 

14 

4 

8 

9 

4 

11 

30 

4 

17 

13 

4 

6 

28 

4 

6 

25 

3 

5 

26 

4 

11 

22 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


11 

12 

12 

9 

9 

12 

9 

11 

9 

9 

9 

11 

12 

10 

9 

9 

9 

11 

9 

11 

9 

10 

9 

12 

11 

9 

16 
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!  48  ! 

49  ! 

50  ! 

51  ! 

'  52  ! 

'  53  J 

54  j 

55  j 

!  56  j 

!  57  j 

!  58  ! 

59  ! 

60  ! 

61  ! 

62  j 

63  ! 

64  "J 

65  ! 

,'  66  ! 

!  67  ! 

!  68  j 

!  69  ! 

i  70  J 

i  71  i 

!  72 

I  73 

1  74 

Kirk 

Burt 

N 

2 

Kliff 

Frank 

E 

1 

Kontos 

David 

K 

2 

Koom 

Peter 

H 

1 

Kueny 

John 

S 

1 

Larsen 

Allen 

A 

2 

Larson 

Roger 

K 

1 

Layton 

John 

E 

2 

Lemos 

Tim 

N 

3 

Lopez 

Tom 

L 

1 

Manos 

John 

K 

1 

Moore 

Roger 

L 

2 

Morris 

Roy 

K 

2 

Morton 

Brian 

C 

1 

Newman 

Ben 

K 

1 

Newton 

John 

J 

2 

Norton 

Denis 

E 

1 

Ocasio 

Jim 

E 

1 

Odello 

Bruno 

A 

1 

01  sen 

Joe 

N 

3 

Onas  is 

George 

E 

3 

Oscar 

Tom 

K 

2 

Owens 

Bill 

L 

2 

Palmer 

Bob 

L 

2 

Pappas 

Nick 

C 

3 

Patton 

Mike 

H 

2 

Perry 

Bill 

H 

1 

3 

9  , 

26 

4 

10 

15 

4 

18 

13 

3 

7 

26 

4 

11 

21 

4 

10 

11 

4 

11 

14 

4 

12 

12 

4 

17 

13 

4 

18 

11 

4 

24 

12 

4 

25 

11 

4 

18 

11 

4 

20 

11 

4 

14 

7 

4 

13 

7 

4 

21 

7 

4 

21 

28 

4 

11 

25 

4 

19 

9 

4 

16 

9 

4 

13 

9 

4 

20 

8 

4 

10 

23 

4 

15 

9 

4 

9 

23 

4 

11 

23 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


9 

8 

9 

9 

13 

12 

11 

9 

9 

12 

9 

12 

12 

12 

9 

9 

9 

9 

9 

11 

9 

9 

10 

12 

9 

12 

12 
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75 

Peters 

Mark 

J 

2 

4 

13 

21 

2 

13 

76 

Peters 

Nick 

K 

1 

4 

12 

22 

2 

16 

77 

Potter 

Tom 

E 

1 

4 

12 

25 

2 

9 

78 

Quill 

Kelvin 

J 

2 

4 

12 

20 

2 

9 

79 

Quinn 

Peter 

C 

2 

4 

19 

20 

2 

9 

80 

Rigas 

Ben 

H 

2 

4 

14 

9 

2 

9 

81 

Rivera 

Mario 

L 

1 

4 

14 

16 

2 

9 

82 

Roberts 

Ben 

J 

2 

4 

12 

20 

2 

9 

83 

Rodes 

James 

K 

1 

4 

9 

20 

2 

9 

84 

Rokos 

Nick 

A 

1 

4 

13 

20 

2 

9 

85 

Ross 

Allan 

J 

1 

4 

6 

16 

2 

9 

86 

Sanders 

James 

F 

1 

4 

11 

20 

2 

11 

87 

Scott 

Paul 

V 

2 

3 

16 

20 

2 

11 

88 

Spencer 

Tim 

M 

1 

4 

23 

16 

2 

9 

89 

Stanley 

Cris 

K 

2 

4 

22 

16 

2 

9 

90 

Takas 

Costas 

L 

1 

4 

20 

13 

2 

9 

91 

Torres 

Alex 

A 

1 

4 

21 

19 

2 

13 

92 

Turner 

Carlos 

B 

2 

3 

16 

19 

2 

13 

93 

Oilman 

Rolf 

G 

2 

4 

28 

13 

2 

10 

94 

Ulrey 

Dan 

A 

1 

4 

25 

14 

2 

11 

95 

Victor 

David 

R 

2 

4 

11 

12 

2 

9 

96 

Vongel 

Mark 

E 

2 

4 

16 

14 

2 

11 

97 

Warren 

Geo 

M 

1 

3 

16 

13 

2 

10 

98 

Waters 

Gary 

L 

1 

4 

16 

14 

2 

11 

99 

Watson 

Ralph 

D 

2 

4 

11 

13 

2 

10 

100 

Z  ikas 

Tom 

J 

1 

4 

19 

13 

2 

9 
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8 .   Program  Report8 

This  program  prints  all  the  officers  in  alphabetical 
order  including  name,  rank,  address,  and  phone  #. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  main  heading  is  printed. 

b.  The  MASTER  file  is  sorted  into  the  temporary 
file  TEMP  in  alphabetical  order,  with  key  the  officer's  name 

c.  The  program  performs  the  main  process  within  a 
WHILE  loop  which  includes: 

(1)  Storing  the  appropriate  field  values  to  the 
corresponding  memory  variables. 

(2)  Retrieving  the  appropriate  rank  name  from 
RANKS  file. 

(3)  Printing  the  main  line  of  the  output,  and 
proceeding  with  the  next  record. 

d.  The  temporary  file  TEMP  is  deleted,  the  MONITOR 
file  is  updated,  and  then  the  program  returns. 

The  listing  and  output  of  the  program  are  shown  in 
the  next  pages. 
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********  PROGRAM  REPORT8  ******** 

*  This  program  prints  all  the  officers  in  alphabetical 

*  order  including  name,  rank,  address,  and  phonetf 

ERASE 

*  Initialize  memory  variables 

STORE  "LIST  OFF  OFFICERS  WITH  THEIR  ADDRESS  AND  PHONE*"  TO  title 
STORE  ===============================================      TO  line 

STORE  1  TO  seqnum 

STORE  0  TO  linecount 

STORE  "  "TO  pname 

STORE  "     "  TO  rankname 

STORE  "   "  TO  mrank 

STORE  "  "  TO  paddress 

STORE  "         "  TO  pphone 

SET  PRINT  ON 

*  Print  the  heading 

<?    " 

??    "  "  +DATEO 

<p<?    "  "  +  " " 

<? 

?  "  "+title 

?  "  "+line 

<? 

<?  " " 

<?<p    ■• ■■ 

?  " ! SEQ# !  NAME  j    RANK    J " 

??    "  ADDRESS  |    PHONE*    \ " 

<?  ■• •• 

<p<?    •• •• 

STORE  linecount  +  9  TO  linecount 
SELECT  PRIMARY 
USE  master 

*  Sort  MASTER  file  in  alphabetical  order  of  the  officer's 

*  names  into  the  temporary  file  TEMP,  and  use  this  file  for 

*  the  database  processing 

SORT  ON  name  TO  temp  ASCENDING 

USE  temp 

DO  WHILE  .NOT.  EOF 

STORE  name  TO  pname 

STORE  rank  TO  mrank 

STORE  address  TO  paddress 

STORE  $(phone, 1, 3)+"-"+$(phone, 4, 4)  TO  pphone 

*  Search  RANKS  file  with  key  the  field  'rank'  of  the 

*  officer's  record  and  get  the  appropriate  rank  name 
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SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &mrank 

IF  $(p.unit, 1, 1)  =  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
END  IF 

*  If  the  line  counter  exceeds  53,  continue  in  the  next  page 

IF  linecount  >  53" 

EJECT 

STORE  0  TO  linecount 
ENDIF 

*  Print  the  data  concerning  the  officer 

cp  "    I 

i 
??    " 
?  " i "+STR(seqnum,  3) 

"+pname 

"+rankname 

"+paddress 
??  "  |  "+pphone+"  ,'  " 
STORE  linecount+2  TO  linecount 
STORE  seqnum+1  TO  seqnum 


?? 
?? 


STORE 
STORE 
STORE 
STORE 
STORE 


TO  pnarae 
TO  rankname 
TO  mrank 

TO  paddress 
"  TO  pphone 


*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 
ENDDO  WHILE  .NOT.  EOF 

*  Delete  file  TEMP,  update  MONITOR  file  and  return 

DELETE  FILE  temp. DBF 

DO  monitr 

RETURN 
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********  PROGRAM  PRINTMON  ******** 

*  This  program  prints  statistical  information 

*  of  who  did  what  and  when 

ERASE 

DO  monitr 

*  Initialize  memory  variables 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


MONITORING  THE  USERS'  ACCESS  TO  THE  SYSTEM"  TO  tit lei 

=========================================="  TO  linel 

DATE         NAME         JOB  DONE"  TO  title2 
FILE/REP    #  OF  REC"  TO  title3 

TO  line2 

•■  TO  line3 


*  Print  the  headline 


SET  PRINT  ON 
<? 

?? 
<? 

?? 

<? 

«? 

<? 
<p 

?? 
<? 

??  Iine3 

SELECT  PRIMARY 

USE  monitor 

DO  WHILE  .NOT.  EOF 


"+DATE( ) 


"+titlel 
"+linel 


title3 


'+title2 
'+line2 


*  Print  the  main  line 


?  " 

"+date 

??  " 

" +name 

??  " 

"  +  job 

??  " 

"+f le : rept 

??  " 

"+STR(numrec, 3) 

SKIP 

ENDDO  WHILE 

RETURN 
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12/01/85 


LIST  OF  OFFICERS  WITH  THEIR  ADDRESS  AND  PHONE* 


|  SEQ# 


NAME 


RANK 


ADDRESS 


PHONE*  ! 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 


Adams 

Garry 

J  ! 

CPT 

Alkamo 

Jim 

P  ! 

LTJG 

Allen 

David 

E  ! 

CPT 

Boris 

Peter 

H  J 

LT 

Borrias 

Nick 

L 

LT 

Brown 

Peter 

R 

CPT 

Bruce 

Mark 

P 

CPT 

Byron 

Larry 

M 

CPT 

Clark 

Tom 

L 

MAJ 

Cook 

Ryan 

K 

MAJ 

Crosby 

Jerry 

J 

MAJ 

Dalton 

John 

E 

MAJ 

Denton 

Mark 

S 

LTJG 

Dorey 

Jim 

H 

MAJ 

Durran 

Frank 

M 

1  MAJ 

Emery 

Roy 

J 

MAJ 

Evans 

Isaac 

M 

!  1LT 

Evans 

Tom 

M 

!  1LT 

Farmer 

Peter 

J 

!  1LT 

Faser 

Gas 

L 

!  1LT 

Felton 

John 

K 

!  1LT 

Foley 

Mark 

L 

!  1LT 

49  Scott,  San  Jose 
64  3rd,  Otay 
36  Laine,  Ford  Ord 
6  1st,  Monterey 
10  Pine,  Monterey 

17  River,  Salinas 
86  Monroe,  Marina 
24  Pine,  Monterey 
66  Hills,  Marina 

44  Carlos,  Monterey 
36  Forest,  St  Clara 
22  Mount,  Carmel 
63  2nd,  Otay 
81  Lake,  Salinas 
77  Hills,  San  Jose 
79  Forest,  San  Jose 

18  David,  Marina 
17  Delia,  Marina 
16  Denise,  Carmel 
15  Diane,  Bonita 
14  Fox,  Nestor 

59  Ho f man,  Fresno 


375-5720 

623-3460 

375-5619 

623-3133 

623-3232 

373-5518 

375-5417 

373-5316 

373-5215 

373-4913 

373-4912 

373-4911 

623-3450 

373-4915 

374-5816 

373-6819 

373-6774 

373-6773 

373-6772 

373-6771 

373-6770 

563-6229 
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!  23  ! 

24 

25 

26 

!  27 

!  28  j 

29  | 

!  30 

31 

32 

33 

34 

35 

36 

!  37 

38 

!  39 

!  40 

!  41 

i  42 

!  43 

1  44 

:  45 

!  46 

1  47 

!  48 

!  49 

Ford 

Roger 

A 

CPT 

Foster 

Kliff 

J 

CPT 

Fox 

Don 

E 

LTJG 

Frank 

Paul 

K 

1LT 

Franko 

Jess 

L 

LTJG 

Freeman 

Jim 

E 

CPT 

Ganos 

Jim 

A 

LT 

Garret 

Rex 

D 

CPT 

Gilman 

Perry 

M 

CPT 

Good 

John 

L 

CPT 

Gorby 

Glen 

G 

CPT 

Gordon 

Jerry 

W 

CPT 

Gorman 

Bruce 

L 

LTJG 

Hog  an 

Joe 

K 

CPT 

Horan 

Kevin 

L 

CPT 

Ingals 

Tomas 

R 

CPT 

Jackson 

Peter 

M 

CPT 

Jensen 

Ron 

P 

CPT 

Jones 

Peter 

L 

LTJG 

Kaan 

Dave 

J 

MG 

Kamenos 

Joe 

M 

LT 

Kane 

Bob 

R 

BG 

Karras 

Mike 

L 

LTC 

Keen 

Robt 

N 

COL 

King 

Lewis 

M 

LTC 

Kirk 

Burt 

N 

LTC 

Kliff 

Frank 

E 

MAJ 

52  Morgan,  Otay 
55  Lilly,  Carmel 

66  Belden,  Carmel 
57  Pine,  Otay 

65  Desty,  Moreno 

51  Lase,  Carmel 

10  Passo,  San  Diego 
49  Kity,  Monterey 

47  Laco,  Carmel 
45  David,  Otay 
41  9th,  Fresno 
43  Pine,  Otay 
62  David,  Otay 

98  Camino,  Marina 
74  Ramona,  Carmel 

11  Forest,  St  Clara 
32  Grove,  Monterey 
55  Hilby,  Salinas 

67  Passo,  Salinas 
71  Buna,  Monterey 
60  Desty,  Monterey 

53  Vista,  Monterey 
19  Franklin,  Marina 

48  Cannery,  Carmel 
31  Trinity,  Salinas 
25  Ocean,  Monterey 

52  Castro,  Fresno 


565- 

-6226 

565- 

-6227 

623- 

-3480 

565- 

-6228 

623- 

-3470 

565- 

-6225 

623- 

-3134 

565- 

-6224 

565- 

-6223 

565- 

-6222 

565- 

-6220 

565- 

-6221 

623- 

-3440 

373- 

-5922 

375- 

-5821 

373- 

-6225 

373- 

-6023 

373- 

-6124 

623- 

-3481 

372- 

-6402 

623- 

-3138 

272- 

-6403 

372- 

-6406 

372- 

-6404 

372- 

-6408 

372- 

-6407 

375- 

-5114 
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!  50  | 

51  J 

52  ! 

'  53  | 

54  j 

55  j 

56  ! 

57  ! 

!  58  j 

59  ! 

60  ! 

!  61  | 

62  ! 

63  J 

64  ! 

65  ! 

!  66  J 

!  67  1 

,'  68  ! 

!  69  | 

!  70 

!  71  i 

!  72 

!  73 

!  74 

i  75 

!  76 

Kontos 

David 

K 

LT 

Koom 

Peter 

H 

LTC 

Kueny 

John 

S 

LTC 

Larsen 

Allen 

A 

CPT 

Larson 

Roger 

K 

CPT 

Lay ton 

John 

E 

CPT 

Lemos 

Tim 

N 

LT 

Lopez 

Tom 

L 

CPT 

Manos 

John 

K 

CPT 

Moore 

Roger 

L 

CPT 

Morris 

Roy 

K 

CPT 

Morton 

Brian 

C 

CPT 

Newman 

Ben 

K 

1LT 

Newton 

John 

J 

1LT 

Norton 

Denis 

E 

1LT 

Ocasio 

Jim 

E 

COMD 

Odello 

Bruno 

A 

CAPT 

01  sen 

Joe 

N 

LTC 

Onasis 

George 

E 

LTJG 

Oscar 

Tom 

K 

LTJG 

Owens 

Bill 

L 

1LT 

Palmer 

Bob 

L 

LTC 

Pappas 

Nick 

C 

LTJG 

Patton 

Mike 

H 

LTC 

Perry 

Bill 

H 

LTC 

Peters 

Mark 

J 

LTC 

Peters 

Nick 

K 

LTC 

10  Pine,  Marina 
97  Nadina,  Carmel 

28  Mission,  Monterey 
39  6th,  Fresno 

37  Marcy,  Fresno 
35  Spencer,  Carmel 
13  Dian,  Otay 

33  Pine,  Bonita 
25  3rd,  Carmel 
27  Market,  Marina 
31  David,  Otay 
27  Morena,  Carmel 

19  Pine,  Marina 

20  View,  Monterey 

21  Side,  Carmel 

25  Dexter,  Carmel 

26  Hawk,  Toro 

23  Hofman,  Fresno 
9  2nd,  Carmel 

61  David,  Otay 

22  Pine,  Carmel 
84  Tamara,  Marina 

11  3rd,  Otay 

69  Lowell,  San  Jose 

38  Casa,  Santa  Clara 

62  Story,  Salinas 
75  Wanda,  Carmel 


623-3137 
372-6405 
372-6409 
565-6219 
565-6218 
565-6217 
623-3139 
565-6216 
565-6212 
565-6213 
565-6215 
565-6214 
373-6775 
373-6776 
373-6777 
373-6789 
373-6781 
373-6779 
623-3140 
623-3430 
373-6778 
372-6412 
623-3410 
372-6413 
373-6414 
372-6410 
372-6411 
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77 

Potter 

Tom 

E 

CAPT 

78 

Quill 

Kelvin 

J 

CDR 

79 

Quinn 

Peter 

C 

CDR 

80 

Rigas 

Ben 

H 

LTJG 

81 

Rivera 

Mario 

L 

LCDR 

82 

Roberts 

Ben 

J 

CDR 

83 

Rodes 

James 

K 

CDR 

84 

Rokos 

Nick 

A 

CDR 

85 

Ross 

Allan 

J 

LCDR 

86 

Sanders 

James 

F 

LTC 

87 

Scott 

Paul 

V 

LTC 

88 

Spencer 

Tim 

M 

LCDR 

89 

Stanley 

Cris 

K 

LCDR 

90 

Takas 

Costas 

L 

LT 

91 

Torres 

Alex 

A 

LTC 

92 

Turner 

Carlos 

B 

LTC 

93 

(Jllman 

Rolf 

G 

CPT 

94 

Ulrey 

Dan 

A 

CPT 

95 

Victor 

David 

R 

CPT 

96 

Vongel 

Mark 

E 

CPT 

97 

Warren 

Geo 

M 

CPT 

98 

Waters 

Gary 

L 

CPT 

99 

Watson 

Ralph 

D 

CPT 

00 

1  Zikas 

Tom 

J 

LT 

27  Rosita,  Carmel 

29  6th  st,  Alto 

28  10th  st,  Alto 
33  Pine,  Otay 

50  Pine,  Alto 

31  7th,  Alto 

32  David,  Fresno 

30  7th,  Carmel 

51  Jakobs,  Carmel 
57  Sinex,  Marina 
42  Grand,  Carmel 
99  David,  Carmel 
15  David,  Salinas 
8  Elden,  Salinas 
60  Sinex,  Fresno 

15  Grove,  Monterey 

22  Maple,  Fresno 

23  Marge,  Carmel 
64  Pine,  Carmel 
80  Hills,  Fresno 
37  Holman,  Carmel 
26  Vina,  Monterey 
41  Dolores,  Marina 

16  Gordiou,  Carmel 


373-6782 
373-6784 
373-6783 
623-3420 
373-6788 
373-6786 
373-6787 
373-6785 
373-6780 
372-6415 
372-6416 
623-3130 
623-3131 
623-3135 
372-6413 
372-6417 
565-6210 
565-6211 
373-6629 
375-6731 
373-6326 
376-6528 
375-6427 
623-3136 
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D.   MISCELLANEOUS  OPERATIONS 

These  are  auxiliary  operations,  which  have  been  included 
in  our  Database  System,  to  provide  the  Commander  of  a  Forma- 
tion and  the  aiding  personnel,  some  statistical  information 
about  any  work  done  in  the  database,  as  well  as,  some  informa- 
tion concerning  officers  deleted  from  the  current  Unit.   This 
information  is  recorded  automatically  during  the  whole  opera- 
tion of  the  database,  in  the  files  MONITOR,  and  STATISTIC, 
respectively.   These  files  can  be  printed  or  deleted  upon 
request.   In  addition,  we  have  included  in  this  function,  a 
screen  display,  or  printer  output,  of  all  the  data  concerning 
an  officer. 

The  programs  implementing  this  function  of  the  system, 
with  a  short  description  of  what  each  performs,  are  given 
below: 

1 .  Program  Printmon 

This  program  prints  the  MONITOR  file,  which  keeps 
track  of  who  does  what  and  when. 

2 .  Program  Printstat 

This  program  prints  the  STATISTIC  file,  which  contains 
some  information  about  the  officers  who  have  been  deleted 
from  their  previous  Unit. 
3  .   Program  Delmon 

This  program  deletes  the  data  from  the  MONITOR  file. 
4 .   Program  Delstat 

This  program  deletes  the  data  from  the  STATISTIC  file. 
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5 .   Program  Dispscrn 

This  program  displays  on  the  screen,  or  prints, 
depending  on  the  user's  choice,  all  the  information  included 
in  an  officer's  record. 

The  listings  of  the  above  programs,  as  well  as,  the 
output  if  any,  are  shown  in  the  next  pages. 
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********  PROGRAM  PRINTMON  ******** 

*  This  program  prints  statistical  information 

*  of  who  did  what  and  when 

ERASE 

DO  monitr 

*  Initialize  memory  variables 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


MONITORING  THE  USERS'  ACCESS  TO  THE  SYSTEM"  TO  tit lei 

=========================================="  TO  linel 

DATE  NAME  JOB  DONE"  TO  title2 

FILE/REP    tt  OF  REC"  TO  title3 

»  T0  line2 

»  TO  line3 


*  Print  the  headline 


SET  PRINT 

ON 

?  " 

??  " 

"+DATE( ) 

?  " 

??  " 

•• 

?  " 

"+titlel 

?  " 

"+linel 

<? 

?  " 

"+title2 

??   title 

3 

?  " 

"+line2 

??  Iine3 

SELECT  PRIMARY 

USE  monit 

or 

DO  WHILE 

.NOT.  EOF 

*  Prin 

t  the  main  line 

?  " 

"+date 

??  " 

"+name 

??  " 

"+.job 

??  " 

"+f le : rept 

??  " 

"+STR(numrec..  3) 

SKIP 

ENDDO  WHILE 

RETURN 
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********  PROGRAM  PRINTSTAT  ******** 

*  This  program  prints  the  statistic  file  which  contains 

*  some  information  about  the  officers  who  have  been 

*  deleted  from  their  previous  unit 

ERASE 

*  Initialize  memory  variables 

STORE  "STATISTIC  INFORMATION  OF  DELETED  OFFICERS"  TO  titlel 
STORE  U=========================================H  TO  linel 

STORE  "SER#       NAME       RANK   UNIT    REPTDATE"  TO  title2 
STORE  "    DELDATE"  TO  title3 

STORE  " "  TO  line2 

STORE  " "  TO  line3 

*  Print  the  headline 


SET  PRINT 

ON 

?  ' 

?? 

" 

"+DATEO 

?  ' 

?? 

" 

- 

?  ' 

"+t 

itlel 

?  ' 

"+1 

inel 

<p 

?  ' 

"+title2 

?? 

title3 

?  ' 

"+line2 

?? 

line3 

SELECT  PRIMARY 

USE  statistic 

DO 

WHILE  . 

NOT.  EOF 

*  Print  the  main  1 

ine 

?  " 

"+serno 

??  " 

'+name 

??  " 

'+rank 

??  " 

'+unit 

??  " 

'+reptdate 

??  " 

'  +deldate 

SKIP 

ENDDO  WHILE 

DO 

monitr 

RETURN 
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*****  PROGRAM  DELMON  ***** 

*  This  program  deletes  the  data  of  the  MONITOR  file 

ERASE 

?  CHR(7) 

@  7,30  SAY  "***  WARNING  ***" 

@  9,17  SAY  "The  data  of  the  MONITOR  file  will  be  deleted" 

@  11,31  SAY  "PROCEED?   Y/N" 

STORE  "  "  TO  answer 

WAIT  TO  answer 

IF  answer  =  "y" 

SELECT  PRIMARY 

USE  monitor 

GOTO  TOP 

DELETE  NEXT  1000 

PACK 

USE 

ERASE 

@  9,13  SAY  "If  you  have  made  a  mistake. . ., sorry  it  is  late' 

@  11,19  SAY  "MONITOR  file  has  been  deleted" 

STORE  1  TO  delay 

DO  WHILE  delay  <  80 

STORE  delay+1  TO  delay 

ENDDO  WHILE 

DO  monitr 
ELSE 

ERASE 

?  CHR(7) 

@  9,20  SAY  "***  Be  careful,  time  is  money  ***" 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 
END  IF 
RETURN 
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********  PROGRAM  DELSTAT  ******** 

*  This  program  deletes  the  statistic  officers  file 

ERASE 

?  CHR(7) 

@  7,30  SAY  "***  WARNING  ***" 

@  9,21  SAY  "The  STATISTIC  file  will  be  deleted" 

@  11,31  SAY  "PROCEED?   Y/N" 

STORE  "  "  TO  answer 

WAIT  TO  answer 

IF  answer  =  "y" 

SELECT  PRIMARY 

USE  statistic 

GOTO  TOP 

DELETE  NEXT  1000 

PACK 

USE 

ERASE 

@  9,17  SAY  "The  STATISTIC  file  has  now  been  deleted 

STORE  1  TO  del 

DO  WHILE  del  <  40 

STORE  del+1  TO  del 

ENDDO  WHILE 

DO  monitr 
ELSE 

ERASE 

?  CHR(7) 

@  9,20  SAY  "***  Be  careful,  time  is  money  ***" 

STORE  1  TO  delay 

DO  WHILE  delay  <  30 

STORE  delay+1  TO  delay 

ENDDO  WHILE 
ENDIF 
RETURN 
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********  PROGRAM  DISPSCRN  ******** 

*  This  program  displays  on  the  screen  or  printer  all  the 

*  information  concerning  an  officer 

ERASE 

*  Initialize  memory  variables 

STORE  "     "  TO  mserno 

STORE  "   "  TO  rankcode 

STORE  "     "  TO  unitcode 

STORE  "   "  TO  dutycode 

STORE  "   "  TO  langcode 

STORE  "   "  TO  sccode 

STORE  "     "  TO  rankname 

STORE  "  "  TO  unitname 

STORE  "  "  TO  dutyname 

STORE  "  "  TO  scname 

STORE  "  "  TO  langname 

STORE  "         "  TO  degrname 

STORE  "  "  TO  marstname 

STORE  0  TO  count 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  "y"  TO  answer 

DO  WHILE  answer  =  "y" 

ERASE 

@  2,10  SAY  "DISPLAYING  OFFICERS'  RECORDS" 

@  5,10  SAY  "Enter  serial  number"  GET  mserno  PICTURE  "9999 

@  7,10  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mserno, 1, 1 )  =  "  " 

*  Update  TEMPOR  and  MONITOR  files,  and  return 

IF  count  <>  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 
ERASE 

@  5, 10  SAY  "Where  do  you  want  the  display  to  be  directed? 
@  7, 10  SAY  "    1  =  Screen" 
@  8,10  SAY  "    2  =  printer" 
STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "2" 

SET  FORMAT  TO  PRINT 
ENDIF 
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*  Find  the  officer  in  MASTER  file 

FIND  &mserno 
IF  #  =  0 

ERASE 

?  CHR(7) 

@  10, 10  SAY  "This  record  does  not  exist,  try  again" 

STORE  1  TO  del 

DO  WHILE  del  <  30 

STORE  del+1  TO  del 

ENDDO  WHILE 

LOOP 
ENDIF 

*  Store  the  codes  of  certain  information  concerning  the 

*  officer,  to  memory  variables  in  order  to  be  used  as  keys 

*  for  finding  the  real  data  from  the  appropriate  files 

STORE  rank  TO  rankcode 
STORE  unit  TO  unitcode 
STORE  duty  TO  dutycode 
STORE  educat  TO  sccode 
STORE  forlang  TO  langcode 

*  Retrieve  the  information  from  the  auxiliary  files 

SELECT  SECONDARY 

USE  ranks  INDEX  ranks 

FIND  &rankcode 

IF  $(p.unit, 1,1)=  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
ENDIF 

USE  units  INDEX  units 
FIND  &unitcode 
STORE  title  TO  unitname 
USE  duties  INDEX  duties 
FIND  &dutycode 
STORE  name  TO  dutyname 
USE  forlangs  INDEX  forlangs 
FIND  &langcode 
STORE  name  TO  langname 
USE  sciences  INDEX  sciences 
FIND  &sccode 
STORE  name  TO  scname 

*  Store  the  appropriate  name  for  marital  status  and  degree 

SELECT  PRIMARY 
DO  CASE 

CASE  degree  =  "B" 

STORE  "Bachelor"  TO  degrnarae 
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CASE  degree  =  "M" 

STORE  "Master"  TO  degrname 
CASE  degree  =  "P" 

STORE  "Ph.D"  TO  degrname 
ENDCASE 
DO  CASE 

CASE  marstat  =  "M" 

STORE  "Married"  TO  marstname 
CASE  marstat  =  "U" 

STORE  "Unmarried"  TO  marstname 
CASE  marstat  =  "D" 

STORE  "Divorced"  TO  marstname 
ENDCASE 

*  Display  the  record  in  the  screen 


ERASE 
@  1,  10 
@  2,  10 
@  5,  10 
@  6,  10 
@  7,  10 
@  8,  10 
@  9,  10 


SAY 
SAY 
SAY 


'DISPLAYING  OFFICERS'  RECORDS' 


'SERIAL  NUMBER 
SAY  "NAME 
SAY  "RANK 
SAY  "UNIT 

SAY  "SERVICE  ENTRY 
@  10, 10  SAY  "REPORT  DATE 
@  11, 10  SAY  "DUTY 
@  12, 10  SAY  "EDUCATION 
@  13, 10  SAY  "DEGREE 
@  14, 10  SAY  "FOREIGN  LANG 
@  15,10  SAY  "MARITAL  STATUS 
@  16, 10  SAY  "CHILDREN 
@  17, 10  SAY  "ADDRESS 
@  18,10  SAY  "TELEPHONE  It 
STORE  count+1  TO  count 
SET  FORMAT  TO  SCREEN 
@  21,10  SAY  "DISPLAY  ANOTHER 
WAIT  TO  answer 
STORE  "     "  TO  mserno 

ENDDO  WHILE  answer  =  "y" 

SELECT  SECONDARY 

USE  tempor 

REPLACE  counter  WITH  count 

USE 

DO  monitr 

RETURN 


'+mserno 

'+name 

"+rankname 

'+unitname 

'+serentry 

' +reptdate 

'+dutyname 

'+scname 

' +degrname 

' +  langname 

'+marstnarae 

'+children 

'+address 

' +phone 


RECORD?  (Y/N) 
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V.   CONCLUSIONS  AND  RECOMMENDATIONS 

In  this  thesis,  we  tried  to  develop  a  personnel  data- 
base system  model,  suitable  for  implementation  within  the 
Hellenic  Armed  Forces  Formations.   This  system  could  also 
be  applied  to  any  subdivision  of  the  Hellenic  Armed  Forces 
hierarchy,  with  only  slight  modification. 

Our  main  goal  is  to  increase  productivity,  effective- 
ness, efficiency,  accuracy,  and  speed,  as  far  as  personnel 
management  is  concerned,  as  well  as  to  decrease  the  national 
expenditure,  and  release  manpower  for  other  purposes.   Also, 
the  Commander  of  a  Formation  will  be  able  to  make  fast 
decisions  concerning  personnel,  which  is  important  as  well. 

We  used  dBASE  II  as  a  database  management  system,  since 
it  is  based  on  the  relational  model,  which  increases  indepen- 
dency, and  reduces  redundancy.   In  addition,  dBASE  II  contains 
its  own  programming  language,  which  is  a  structured,  high- 
level  language,  which  is  generally  very  efficient  for 
manipulating  data  in  the  database. 

We  have  implemented  the  most  usually  needed  reports,  but 
a  wide  variety  of  other  reports,  or  simple  queries,  could 
also  be  created.   Also,  we  tried  to  keep  the  programs  as 
user  friendly  as  possible,  in  order  to  help,  not  hinder,  the 
operators  in  their  job. 

The  software  life  cycle  has  been  taken  into  account 
during  the  program  development  process.   Programs  are  easy 
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to  modify  to  meet  future  improvement  needs.   In  our  appli- 
cation we  have  used  the  top-down  design  approach  which 
serves  the  above  goal. 

In  this  implementation  we  have  included  only  officers, 
and  a  certain  amount  of  data  for  each  of  them.   Future 
improvements  could  include  the  entire  military  personnel, 
and  we  could  add  more  information  to  the  record  of  each 
individual,  such  as  place  and  date  of  birth,  medical  infor- 
mation, military  education,  and  statistical  information 
concerning  the  units  he  has  been  assigned  up  to  the  present 
time,  to  name  just  a  few. 

This  thesis  constitutes  a  good  basis  for  the  future 
computerization  of  personnel  management,  in  the  Hellenic 
Armed  Forces  Formations,  as  well  as  in  subordinate  units. 
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